|
最初の質問が間違っていました。
再度、訂正させていただきます。
下記のマクロを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
PS かみちゃんさん。早速の回答ありがとうございました。
質問が間違っているのに気づきました。
|
|