エクセルのマクロについて教えて下さい。
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
１ C100,C101,C102,C103 aaa bbb ccc ddd eee
２ C104,C105,C106,C107
とうい表を、
A B C D E F
１ C100 aaa bbb ccc ddd eee
２ C101 aaa bbb ccc ddd eee
３ C102 aaa bbb ccc ddd eee
４ C103 aaa bbb ccc ddd eee
５ C104 aaa bbb ccc ddd eee
６ C105 aaa bbb ccc ddd eee
７ C106 aaa bbb ccc ddd eee
８ C107 aaa bbb ccc ddd eee
という表にしたいです。
結合してから展開しようと考えたのですが
１列目の文字列の最後にカンマが無い場合、ある場合がありまして、
対応する事が出来ませんでした。
マクロ初心者なので教えてください。
よろしくお願いします。
エクセルのマクロについて教えて下さい。
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
１ C100,C101,C102,C103 aaa bbb ccc ddd eee
２ C104,C105,C106,C107
とうい表を、
A B C D E F
１ C100 aaa bbb ccc ddd eee
２ C101 aaa bbb ccc ddd eee
３ C102 aaa bbb ccc ddd eee
４ C103 aaa bbb ccc ddd eee
５ C104 aaa bbb ccc ddd eee
６ C105 aaa bbb ccc ddd eee
７ C106 aaa bbb ccc ddd eee
８ C107 aaa bbb ccc ddd eee
という表にしたいです。
結合してから展開しようと考えたのですが
１列目の文字列の最後にカンマが無い場合、ある場合がありまして、
対応する事が出来ませんでした。
マクロ初心者なので教えてください。
よろしくお願いします。
エクセルのマクロについて教えて下さい。
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
１ C100,C101,C102,C103 aaa bbb ccc ddd eee
２ C104,C105,C106,C107
とうい表を、
A B C D E F
１ C100 aaa bbb ccc ddd eee
２ C101 aaa bbb ccc ddd eee
３ C102 aaa bbb ccc ddd eee
４ C103 aaa bbb ccc ddd eee
５ C104 aaa bbb ccc ddd eee
６ C105 aaa bbb ccc ddd eee
７ C106 aaa bbb ccc ddd eee
８ C107 aaa bbb ccc ddd eee
という表にしたいです。
結合してから展開しようと考えたのですが
１列目の文字列の最後にカンマが無い場合、ある場合がありまして、
対応する事が出来ませんでした。
マクロ初心者なので教えてください。
よろしくお願いします。
こんにちは。
エクセルで表を展開したいのですがマクロが作れません。
どなたか詳しい方教えて下さい。
A B C D
１ 1,2,3 abc def ghi
を
A B C D
１ 1 abc def ghi
２ 2 abc def ghi
３ 3 abc def ghi
というように展開したいです。
10列目くらいまで対応したマクロが作りたいです。
Sub test() 'この行から
Dim i, j, k As Long
Dim myArray As Variant
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
If Not Cells(i, 1) Like "*" & "," & "*" Then i = i - 1
myArray = Split(Cells(i, 1), ",")
k = UBound(myArray)
Rows(i + 1 & ":" & i + k).Insert
For j = 0 To k
Cells(i + j, 1) = myArray(j)
Next j
Next i
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 2) = "" Then
Cells(i, 2) = Cells(i - 1, 2)
End If
Next i
Columns("A:B").AutoFit
End Sub 'この行まで
これにどう付け足せばいいでしょうか？
どうかご教授お願い致します。
