[[20140411122342]]　『配列で連続処理したい文字列の操作』（とも吉）　ページの最後に飛ぶ

『配列で連続処理したい文字列の操作』（とも吉）

　　　 Dim 元データ As Variant

         Dim 文字数 As Variant

         元データ = Range("D1:D3087") 
         For i = 1 To 3087

         ’元データに格納されている文字列をこの間で操作したい 
　　　　　任意の文字を抜き取ってセルに貼り付ける

         文字数 = Len(元データ)

         MsgBox 文字数

         Next i

上記で　元データ　に　D1:D3087　の文字列を格納し文字列から必要な部分を抜き出し
セルに書き込みたいのですが、エラーで止まります　D1:D3087　の1行目は麻B060516-MSE300です。

文字列を操作できないのは元データがstringじゃないので無理っぽいかんじがするのですが
配列に取り込むにはvariantじゃないといけないみたいなので、良い方法があればご教示いただけると幸いです。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

  Len(元データ) 
 のような配列データの一括処理はできません。

 >元データがstringじゃないので無理っぽいかんじがするのですが 
 ということはないので、処理の内容によると思いますが
 上記に関しては、まずこうしてどうでしょうか。

     For i = 1 To 3087 
         文字数 = 文字数 + Len(元データ(i,1)) 
     Next
     MsgBox 文字数 
（Mook） 2014/04/11(金) 12:49

こちらも参考に。
配列で連続処理したい文字列の操作　　投稿者: tomokichi1005
http://www.moug.net/faq/viewtopic.php?t=69053

（cai） 2014/04/11(金) 13:27

ありがとうございました！！
バッチリでした！！！
（とも吉） 2014/04/14(月) 12:12

コメント返信：