コピーする範囲を指定

質問

コピーする範囲を指定
コピー元のファイル名が都度変わるので、下記の様なマクロにてコピー元のファイルから、明細シート.xlsというファイルにコピーをする部分での質問です。

コピー元の行は開いてみないと分からないので、多めの行で（Range("A2:BI502").Copy ）の様に約５００行で設定していたのですが、行は３行程度からが３０００行近くになることもあり、コピー元の必要行だけを判断してコピーするにはどの様にしたらよいでしょうか？

Dim sTarget As String
sTarget = Dir("C:\Documents and Settings\ユーザ名\デスクトップ\Search result" & "*.xls")
If sTarget <> "" Then
Workbooks.Open Filename:="C:\Documents and Settings\ユーザ名\デスクトップ\" & sTarget

Else
MsgBox ("該当ファイル無し")
End If

Workbooks(sTarget).Worksheets("検索結果").Range("A2:BI502").Copy _
Workbooks("明細シート.xls").Worksheets("Sheet1").Range("A2")

Windows(sTarget).Activate

回答No.1

nattocurry · ベストアンサー

一例です。

Workbooks(sTarget).Worksheets("検索結果").Range("A2:BI502").Copy _
Workbooks("明細シート.xls").Worksheets("Sheet1").Range("A2")range("A2:BI502")
↓
With Workbooks(sTarget).Worksheets("検索結果")
　.Range(.Range("A2"), .Range("BI65536").End(xlUp)).Copy _
　Workbooks("明細シート.xls").Worksheets("Sheet1").Range("A2")
End With

お礼

回答ありがとうございました。
補足を参考に
A列は最終行まで埋まっているので、
Range(.Range("BI2"), .Range("A65536").End(xlUp))とすることで、うまくいきました。

補足

Range(.Range("A2"), .Range("BI65536").End(xlUp))の指定だと、最終行のBIセルに値が入っている場合は正しく動作しますが、BI列が空欄であった場合、コピーしたい行を設定することができません。