kou********

2022/5/14 17:43

22回答

エクセルのVBAについて、ご教示ください。 図のように、黄、赤、青、緑のデータが それぞれ20列離れた場所にあります。 ※本当は緑で終わらず、その先にもデータがあります

エクセルのVBAについて、ご教示ください。 図のように、黄、赤、青、緑のデータが それぞれ20列離れた場所にあります。 ※本当は緑で終わらず、その先にもデータがあります データの数はそれぞれ異なります。 すべてのデータをつなげて黄⇒赤⇒青⇒緑のように データを連結したいです。 ※わかりやすく色を塗ってますが、実際は罫線も色もなく、 値貼り付けしたいです。 どなたかご教示ください。

画像

Visual Basic | Excel・131閲覧・xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

0
1150246010

2022/5/14 23:23

マクロの関数に疎い素人が組む場合のコードです。 参考まで。 Sub 連結作業() Dim n0 As Integer Dim r0 As Integer Dim myR0 As Integer Dim myN1 As Integer myR0 = Cells(2, Columns.Count).End(xlToLeft).Column For r0 = 2 To myR0 Step 22 myN0 = Cells(Rows.Count, myR0 + 4).End(xlUp).Row myN1 = Cells(Rows.Count, r0).End(xlUp).Row Range(Cells(myN0 + 1, myR0 + 4), Cells(myN0 + myN1 - 1, myR0 + 5)).Value _ = Range(Cells(2, r0), Cells(myN1, r0 + 1)).Value Next End Sub

画像
kou********

質問者2022/5/15 9:10

勉強になります。ありがとうございます。 ちなみに、図では２列分をコピーしているのですが、五列分にするためには、どこをどう直すといいのでしょうか？色々とすみません

ThanksImg質問者からのお礼コメント

私も勉強します！ありがとうございました

お礼日時：5/18 22:37

その他の回答（1件）

0
spe********

2022/5/14 18:46

これでいいですか？ Sub まとめ() Dim myRng As Range Dim lstRow As Long, lstCol As Long, rCnt As Long, cCnt As Long lstCol = Cells(2, Columns.Count).End(xlToLeft).Column rCnt = 2 cCnt = 2 Do Until cCnt > lstCol lstRow = Cells(Rows.Count, cCnt).End(xlUp).Row Set myRng = Range(Cells(2, cCnt), Cells(lstRow, cCnt + 1)) myRng.Copy Cells(rCnt, lstCol + 4).PasteSpecial Paste:=xlPasteValues cCnt = cCnt + 2 cCnt = Cells(2, cCnt).End(xlToRight).Column rCnt = Cells(Rows.Count, lstCol + 4).End(xlUp).Row + 1 Loop MsgBox "まとめ完了" Set myRng = Nothing End Sub