マクロ 選択が上手くできない

質問

いつも回答ありがとうございます。

色々あってもう質問しないでおこうかと思いましたが、やっぱり壁にぶつかっちゃうので質問させて頂きます。何卒お手柔らかに宜しくお願い致します。

以前も同じような質問をここでしたと思いますが、今回作成中のマクロでは自分の思った範囲が選択されないので困っています。以前の投稿履歴・ネット等で何度も見直しましたがさっぱり分かりません。

シートの構成
・集計用という名のシートがあります。
・B列の４行目から下方向に日付が連続で記載されています。（重複無）

で、このB列の『最終(一番下)の日付』と『最終の日付から７日前』の範囲を選択するマクロを記述しましたが、全く違うセル範囲(LCB3:LCI3)が選択されました。色々記述を変えたりしましたが、エラーがかかったりもう訳が分かりません。高確率で基本的な間違いをしているんだろうなとは思いますが、どうか御指導の程宜しくお願い致します。

作成中のマクロ
Sub 直近1週間の範囲を選択()
Dim b1 As Long '最後の日付
Dim b2 As Long 'b1から7日前

With Worksheets("集計用")
b1 = .Cells(Rows.Count, 2).End(xlUp)
b2 = .Cells(Rows.Count, 2).End(xlUp).Offset(-7, 0)
.Range(.Cells(b2), .Cells(b1)).Select
End With
End Sub

回答No.2

web2525 · ベストアンサー

ついでに
なんであなたのマクロが正常に動作しなかったかを説明

b1 = .Cells(Rows.Count, 2).End(xlUp)　'これではb1はセルの中身、つまり日付データになります
b2 = .Cells(Rows.Count, 2).End(xlUp).Offset(-7, 0)'同上
.Range(.Cells(b2), .Cells(b1)).Select'つまり全くトンデモナイところを選択しているわけです

セルの中身ではなくセル番地を代入するには

b1 = .Cells(Rows.Count, 2).End(xlUp).Address’直接最終のセル番地をA1形式で
b2 = .Cells(Rows.Count, 2).End(xlUp).Offset(-7, 0).Address
.Range(b2, b1).Select

若しくは

b1 = .Cells(Rows.Count, 2).End(xlUp).Row’最終セルの行番号
b2 = .Cells(Rows.Count, 2).End(xlUp).Offset(-7, 0).Row
.Range("B" & b2,"B" & b1).Select

こんな形になります

変数の宣言もAddressで読み込む場合は
LongではなくStringに変更が必要

その他には

Sub 直近1週間の範囲を選択()
Dim b1 As Range
Dim b2 As Range

With Worksheets("集計用")
Set b1 = .Cells(Rows.Count, 2).End(xlUp)
Set b2 = .Cells(Rows.Count, 2).End(xlUp).Offset(-7, 0)
.Range(b2, b1).Select
End With
End Sub

こんな形式でも

お礼

日付のシリアル値でセル番地を設定しているからおかしな事になったという事でしょうか？なので、日付のシリアル値じゃなく、セル番地を指定するんだよとしなければいけなかったという事なんでしょうか？いずれにしても、思い通り動くのでとても感謝しています。ありがとうございました。

回答No.1

web2525

Sub 直近1週間の範囲を選択()
Range("B" & Rows.Count).End(xlUp).Offset(-6, 0).Resize(7, 1).Select
End Sub

これでいいのかな？

お礼

朝早くから回答ありがとうございます。
その列単体ならこの記述で完璧です。しかし、私は日付の列と違う列を選択して別のシートに貼り付けを数シート繰り返したいので、変数を使用して範囲を選択したいのです。分かっているのっであれば教えて頂けないでしょうか？宜しくお願い致します。