Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


25024 / 76732 ←次へ | 前へ→

【57053】B列全てで実行したい
質問  tobima  - 08/7/20(日) 13:55 -

引用なし
パスワード
   下記のマクロをB列全部にデータがある場合、実行させたいのですが、
うまくいきません。
自分の知識不足で、rangeの定義がうまくいかず、根本的なことが
わからず、時間がないため、質問させていただきました。
どなたか、よろしくお願いします。

Sub kaigyo()


Const kaigyo As Long = 50
Dim s As Variant
Dim i As Long, j As Long, k As Long
Dim v() As Variant
  s = Split(Range("B1").Value, vbLf)
  k = 0
  For i = 0 To UBound(s)
    For j = 1 To Len(s(i)) Step kaigyo
      ReDim Preserve v(k)
      v(k) = Mid$(s(i), j, kaigyo)
      k = k + 1
    Next
  Next
  Range("B1").Value = Join(v, vbLf)

End Sub
0 hits

【57053】B列全てで実行したい tobima 08/7/20(日) 13:55 質問
【57054】Re:B列全てで実行したい かみちゃん 08/7/20(日) 14:07 発言
【57055】Re:B列全てで実行したい tobima 08/7/20(日) 14:47 質問
【57056】Re:B列全てで実行したい かみちゃん 08/7/20(日) 14:54 発言
【57057】Re:B列全てで実行したい tobima 08/7/20(日) 14:57 発言
【57063】Re:B列全てで実行したい kanabun 08/7/21(月) 14:58 発言
【57064】Re:B列全てで実行したい tobima 08/7/21(月) 16:55 発言
【57065】Re:B列全てで実行したい kanabun 08/7/21(月) 21:06 発言
【57066】Re:B列全てで実行したい かみちゃん 08/7/21(月) 21:23 発言
【57067】Re:B列全てで実行したい tobima 08/7/21(月) 23:28 お礼

25024 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free