|
こんにちわ。
シートに2つの表が定位置にあり、このシートが複数あります。
やりたいのは2つの表を縦方向に並べ、さらに複数のシートを
一つに纏める作業です。大体は組めたのですが、
シート数はその時々によって違う為困ってます。
自動的にシート全てを読み込んで処理する方法はありますでしょうか?
Sheets("A").Activate
Rows("29:31").Select
Selection.Delete Shift:=xlUp
ActiveWindow.LargeScroll ToRight:=-1
Range("j3:q28").Select
Selection.Cut
Range("a29").Select
ActiveSheet.Paste
Sheets("B").Activate
Rows("29:31").Select
Selection.Delete Shift:=xlUp
ActiveWindow.LargeScroll ToRight:=-1
Range("j3:q28").Select
Selection.Cut
Range("a29").Select
ActiveSheet.Paste
このようにA〜Zまでとその時々によって数量が
違うので、自動的にシートを全て読み込む処理
方法あればアドバイスお願いします。
|
|