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

≪