sheet2のsheetに下記のような文字が入っています。

sheet2のsheetに下記のような文字が入っています。 A列 B列 XXX 1個 YYY 2個 ZZZ 4個 ←空白セル AAA 1個 BBB 3個 CCC 7個 DDD 2個 ←空白セル EEE 8個 FFF 3個 ←空白セル GGG 2個 ←空白セル ・ ・ ・ ←以降空白セル のような感じで塊の間には空白セルになっています。 この塊ごとにCOPYして SHEET1のA,B列のセルにコピーして行きます。 SHEET1の方は塊間に間をあけなくて構いません。 LOOPでいけると思うのですが、どのようなマクロを組めばよいでしょうか? 空白セルが2行続いたらSTOPみたいな感じ。

補足

すいません。説明が不足していました。 1つの塊をsheet1にコピーしたあと、sheet1で別の処理を行います。(これは今回のマクロに組み込もうと思っています) ですので、 塊をsheet1にcopy→ある別の処理→次の塊をsheet1にcopy(1つ前の塊の下の行に貼付)→ある別の処理・・・ のような感じです。塊がなくなったら(空白セルが2行続いたら)終了となります。

Visual Basic44閲覧xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

0

この質問例なら、、、 Sub Test() Worksheets("Sheet2").Columns("A:B") _   .SpecialCells(xlCellTypeConstants, 23).Copy _      Destination:=Worksheets("Sheet1").Range("A1") End Sub