エクセルVBAで複数シートを1つのシートにまとめる方法 削除
| Message#2 2015年2月12日(木)09時39分 From: karin |
| 一回マクロを記録してからその内容をループ処理かければいけそうですが、 一応最後の行にまとめて記述する方法を提示すると以下になります。 ご参考までに Sub Sample() For Each MySh In Worksheets intRow = MySh.Cells(Rows.Count, 1).End(xlUp).Row - 1 With Worksheets("ｘｘｘ").Range("A" & Rows.Count).End(xlUp).Offset(1) .Resize(intRow , 1).Value = MySh.Range("A2").Resize(MyRow, 1).Value End With Next End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
