Excelでマクロを設定したいです。 この写真のように、表データの1行目はG4のセルにカンマで区切り

Excelでマクロを設定したいです。
この写真のように、表データの1行目はG4のセルにカンマで区切りデータを結合。
表の2行目はG4のセルを改行し、2行目にカンマで区切り、データを結合して表示されるようにしたいです。

この表データがどれだけあっても使えるようにしたいです。個数制限があるなら100行程度あればありがたいです。

よろしくお願いします！

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2020/09/03 23:17

こんばんは、

こんな感じで、どうでしょう。
最後のChr(10)の処理はお任せします。
セル内改行、後で困らないように考えてくださいね。

Sub sample()
Dim i As Long, j As Integer
Dim strA As String
For i = 4 To Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To 5
If j < 5 Then
strA = strA & Cells(i, j) & ","
Else
strA = strA & Cells(i, j) & Chr(10)
End If
Next j
Next i
Range("G4") = strA
End Sub

この回答へのお礼

ありがとうございます！
うまく行きました！！！！！

お礼日時：2020/09/04 23:38

No.3 回答者： ppp2122 回答日時： 2020/09/04 16:20

マクロを使う必要が感じられない

単純に　数式を入れればいいのでは？
=A4＆B4＆C4＆D4＆E4

No.2 回答者： 銀鱗 回答日時： 2020/09/03 23:21

ええと。

「代わりにマクロを作って」
という事でしょうか。

ここは自力で解決できるようアドバイスを貰うところですので、
作業依頼は別の場所で依頼することを勧めます。

まあ、たまーに、
「こんなこともできないのかｗｗｗ」
と、ドヤ顔でマクロを書いてくれる人もいないこともありませんので、ちょっとだけ期待しても良いかも知れません。

待っている間に「利用規約」と「投稿ガイドライン」を読んでいると良いでしょう。