エクセルマクロで空欄と空欄の間のデータを取得する

添付画像のようなデータが並んだエクセルシートがあります。（ブックＡ）
ブックＡsheet1のＡ列に数値が入っている行のＢ列～Ｄ列のデータを別のブックＢから取得したいのです。
ブックＢにsheet1～sheet20まであります。
ブックＡsheet1のＡ列に数値が入っている行のＢ列～Ｄ列のデータを１セットとして、ブックＢのsheet1のＢ１にコピーする。
次のグループをブックＢのsheet２のＢ１にコピーする、
また次のグループをブックＢのsheet３のＢ１にコピーする。
ブックＢには書式設定してあるので、値のみコピーします。
ブックＡのＢ列～Ｄ列の数値の配置はそのままでコピーします。
この作業をブックＢからマクロで行う方法を教えて下さい。

宜しくお願いします。

No.3 ベストアンサー 回答者： n-jun 回答日時： 2009/02/25 04:14

＃２です。

＞コピー先の罫線を崩さない様にするにはどうすればよろしいですか？

r.Offset(, 1).Resize(, 3).Copy ThisWorkbook.Worksheets(i).Range("B1")
　　　　　↓
ThisWorkbook.Worksheets(i).Range("B1").Resize(r.Rows.Count, 3).Value = _
r.Offset(, 1).Resize(, 3).Value

一例です。

この回答へのお礼

ありがとうございました。
全て思い通り解決しました。

お礼日時：2009/02/25 21:13

No.2 回答者： n-jun 回答日時： 2009/02/24 20:13

Sub try()

Dim ws As Worksheet
Dim r As Range
Dim i As Integer

Set ws = Workbooks("Book1.xls").Worksheets("Sheet1")
i = 1

With ws
For Each r In .Range(.Range("A1"), .Cells(Rows.Count, 1).End(xlUp)).SpecialCells(xlTextValues).Areas

r.Offset(, 1).Resize(, 3).Copy ThisWorkbook.Worksheets(i).Range("B1")
i = i + 1
Next
End With

Set ws = Nothing
End Sub

一例まで。

この回答への補足

ありがとうございます。
データは意図したとおりにコピーできましたが、
コピー先の罫線が消えてしまいました。
コピー先の罫線を崩さない様にするにはどうすればよろしいですか？

補足日時：2009/02/24 22:17

No.1 回答者： rukuku 回答日時： 2009/02/24 20:09

はじめまして

まずは、fightman11さんのマクロ使用の経験を教えてく
ださい。どこまで丁寧に説明するかが異なってきます。

質問の文からだけでは不確かなところがありますので、
その部分は補足要求しながら、回答できる部分を回答し
ます。

＞ブックＢには書式設定してあるので、値のみコピーします。
「コピー」＆「形式を選択して貼り付け－値」でもできますが、
マクロならば
［コピー先のセルのアドレス].value=［コピー元のセルのアドレス].value
でもできます。

＞空欄と空欄の間の
空白行の間の行の数が一定していませんが、空白行があったら、
次の行のデータを「ブックＢシート１」の一番下に追加（以下繰り返し…）
でよろしいでしょうか？

あと、揚げ足を取るようで申し訳ありませんが、
＞ブックＡsheet1のＡ列に数値が入っている行のＢ列～Ｄ列の
＞データを別のブックＢから取得したいのです。
と
＞ブックＡsheet1のＡ列に数値が入っている行のＢ列～Ｄ列の
＞データを１セットとして、ブックＢのsheet1のＢ１にコピーする。
ではコピー元とコピー先の関係が全く逆です。どちらが正しいですか？

この回答へのお礼

ありがとうございました
解決しました

お礼日時：2009/02/25 21:12