エクセルのマクロについて教えて下さい。
エクセルのマクロについて教えて下さい。
Sub Ref()
Dim ax As String
Dim num As Integer, i As Integer
Dim arr As Variant
Dim tex As String
Range("A1").Select
ax = ActiveCell.Formula
arr = Split(ax, ",")
For i = 0 To UBound(arr)
num = i + 1
Cells(num, 1).Value = arr(i)
Next i
For i = 1 To 10
ActiveCell.Offset(, 1).Select
tex = ActiveCell.Formula
Selection.Resize(num, 1).Select
Selection.Formula = tex
Selection.Resize(1, 1).Select
Next i
End Sub
このマクロを10行ほどまで対応させたいです。
例として2行の表ですが、
A B C D E F
1 C100,C101,C102,C103 aaa bbb ccc ddd eee
2 C104,C105,C106,C107
とうい表を、
A B C D E F
1 C100 aaa bbb ccc ddd eee
2 C101 aaa bbb ccc ddd eee
3 C102 aaa bbb ccc ddd eee
4 C103 aaa bbb ccc ddd eee
5 C104 aaa bbb ccc ddd eee
6 C105 aaa bbb ccc ddd eee
7 C106 aaa bbb ccc ddd eee
8 C107 aaa bbb ccc ddd eee
という表にしたいです。
結合してから展開しようと考えたのですが
1列目の文字列の最後にカンマが無い場合、ある場合がありまして、
対応する事が出来ませんでした。
マクロ初心者なので教えてください。
よろしくお願いします。
お礼