マクロのつくり方がわかりません。

質問

以下はEXCELです。　A1のabcを同ブロックの13-07-31の
下（A5)にコピーするマクロをつくりたいのですが。
A7はA9にしたい。

-------A--------B
1-----abc------123
2---13-07-01--(空白）-
3----(空白)----456
4---13-07-31--(空白）-
5----(空白）---789
6-------空白行-------
7-----abc------123
8---13-07-31--(空白）-
9---(空白）---789
10-------空白行-------
以下続きます。

回答No.1

nishi6

質問の意味を理解していればいいのですが・・・・
各ブロックの先頭の文字は２つを見る限り「abc」ですが、「abc」と一致したら貼り付ける意味でしょうか？
下記マクロは「abc」に限らず、ブロックの先頭文字を最終行に貼り付けます。
意味が違っていたら補足して下さい。

標準モジュールを追加して貼り付けます。
Public Sub AtaiHarituke()
Dim rg As Range 'セル
Dim rw As Long '行カウンタ
Dim Atai As String '貼り付ける値

Set rg = Range("A1") '基準位置

With rg
Atai = .Offset(rw, 0)
While Atai <> "" 'なくなるまで続ける
rw = rw + 1
While Not (.Offset(rw + 1, 0) = "" And .Offset(rw + 2, 0) = "")
rw = rw + 2 'ブロックの最終行でなければ次へ
Wend
.Offset(rw + 1, 0) = Atai '値を貼り付け

rw = rw + 3 '次のブロック
Atai = .Offset(rw, 0)
Wend
End With
End Sub

お礼

いつも、ありがとうございます。
設定では先頭の文字のコピーにしましたが、
その一行下の場合はどうでしょうか？

また、データの持ち方が一行になく行列に
持っていますので苦労しています。
また質問したときはよろしくお願い致します。