FINE9のプロフィール

エクセルのマクロについて教えて下さい。 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 'この行まで これにどう付け足せばいいでしょうか？ どうかご教授お願い致します。

アロエは、どのようにして増えるんですか？ 教えてください。 種子植物ですか？？？