VBA　For Eachでセル内の文字列を一個ずつ取り出すには

Question

エクセル2000です。
たとえばA1セル内の文字列を一個ずつ取り出す場合、

Sub test01()
    For i = 1 To Len(Range("A1").Value)
        Cells(i, "B").Value = Range("A1").Characters(i, 1).Text
    Next
End Sub

このように最初から最後の文字まで何番目で指定することはわかるのですが、これをFor　Each で回すにはどうしたらよいでしょうか？
（⌒o⌒)？　お教えください。

Sub test02()
    For Each ch In Range("A1").Characters
    i = i + 1
    Cells(i, "B").Value = ｃｈ
    Next
End Sub

ではエラーになります。

cj_mover · Accepted Answer

こんにちは。
求めているのは、コレクション、じゃなくて、配列、ですよね。
例えば、(A1の文字列、6文字だとして)
　Dim vA As Variant
　vA = Evaluate("INDEX(MID(A1,ROW(1:6),1),)")
とか。

で、
　Range("B1:B6").Value = vA
とか、
どうせなら一行にまとめて、
　Range("B1:B6").Value = Evaluate("INDEX(MID(A1,ROW(1:6),1),)")
とか、
　For Each ch In vA
　...
とか。

　vA(1 To 6, 1 To 1)　で返ります。
一次元配列が必要ならば、(For Each ~ で使うなら関係ないだろうけど)
　vA = Application.Transpose(vA)
を、追加してください。
（Application.Transpose(配列)は、XL2000の場合5461が要素数の上限。）

Evaluateの引数は文字列ですから、
　Evaluate("文字列" & 変数 & "文字列")
のような使い方で応用可能です。
（Excel数式は苦手なので、もっと良いのがあるかも）

動作がやや重、ってこともあり、普段は使わないだろうけど、
使い捨てのマクロ作る時とかなら、、、有り？、、、かな？？
かなり珍しい手法ですし、他人に奨めるものではないですね。
実際には、配列変数に渡す必要がないなら、
　With Range("B1:B6")
　.Formula = "=MID(A$1,ROW(),1)"
　.Value = .Value
　End With
とかで、処理するだろうと思います。

'ものぐさ'って言葉、好きですね。
「'面倒臭い'は発明の父」とか云うんでしたっけ？
（違ってたら教えてくださいね＾＾）

cj_mover · Answer

こんにちは

どこら辺のことを問題にしての質問だったのか、
ようやく解った気がします。

》ただ、残念ながらEvaluate("INDEX(MID(A1,ROW(1:6),1),)")が、わたしにはブラックボックスなのです。
Evaluate自体がブラックボックスのようなものですからね。(^^)
違和を感じる方が普通でしょう。
ショートカットして簡単に済ませて良いものと、
そうじゃないものと、あるとすれば、
抜きにしてはいけない基本の話なんだと思います。

（今回の質問を経て、既に明らかでしょうが、整理する意味で）
処理する対象が「値」なのか「（オブジェクトの）プロパティ」なのか、
に、普段から注目して、サンプルソースを読むようにすれば、
今のような迷いは解消されると思います。
値の操作に関しては、#2さんご提示の記述が、すべての基本形だと思います。
暫くは、この形にこだわって、他に目を向けず、省略を考えず、
で自分のモノにしちゃうのが良いかも知れませんね。
「値」を取り込んでからメモリ上で処理する、
ことを意識的に繰り返していけば、今はモヤモヤしている諸々のことが
スッキリして行くと思いますよ。
（例えばExcelVBAらしい配列の使い方とかも）
こればっかりは継続によってしか得られないようにも思えます。
一方で、
「１対１で読み込みながら処理」
することに物足りなさを覚える、とか、
もっと簡単に出来ないか、とかの感覚も、
大事にとっておいて欲しいと願うのですけれど。

言うまでもないと思いますが、私にポイントつけないでくださいね。

では、雷に気を付けて^^

KenKen_SP · Answer

> 文字列をコレクションとして扱う方法はないという
> 解釈でよろしいでしょうか？

有る・無しで回答するなら「無し」ですね。その通りです。

コレクションとして扱いたい意図は？ それによっては代案がでてくるかも
しれませんよ。

KenKen_SP · Answer

こんにちは。

[VBA ヘルプ引用]----------------------
Characters プロパティ 
解説
Characters オブジェクトはコレクションではありません。
--------------------------------------

とありますよ。名前はコレクションぽいですけどね。For Each ループ
はコレクションまたは配列で使いますので無理でしょう。

1 文字毎に取り出したいのなら Mid を使うとか。

　　s = Range("A1").Text
　　For i = 1 To Len(s)
　　　　Cells(i, "B").Value = Mid(s, i, 1)
　　Next

文字単位でフォント変更など、つまり Characters オブジェクトの操作を
したいなら、

　　Range("A1").Characters(i, 1)

とするしかないようです。

bonaron · Answer

ヘルプにも書かれていますが
Characters オブジェクトはコレクションではありません。
よって　For Each でコレクションのメンバにアクセスするようなことは
出来ないと思います。

VBA For Eachでセル内の文字列を一個ずつ取り出すには

こんにちは。

こんにちは

> 文字列をコレクションとして扱う方法はないという

こんにちは。

ヘルプにも書かれていますが

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

VBA　For Eachでセル内の文字列を一個ずつ取り出すには