毎回最終セルを探す。

質問

お世話になります。

マクロは組めないので、
マクロの記録で作ってみましたが、

ActiveCell.SpecialCells(xlLastCell).Select
Range("A8356").Select

これは、ctrl+end で、最終行を選び、
Home で、A列に行き、カーソルで1行下げました。
そうすると、("A8356")と、固定されてしまい、
次の『Book2』のデータは、下に蓄積されずに、
同じところから上書きをされてしまいます。

ちなみに、全文を載せさせていただきます。

どうすればよいのでしょうか？

よろしくお願い致します。

ActiveCell.SpecialCells(xlLastCell).Select
Range("A8356").Select
Workbooks.Open Filename:= _
"C:\Documents and Settings\t.t\My Documents\Book2.xls"
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Selection.Copy
Windows("6965.xls").Activate
ActiveSheet.Paste
ActiveWindow.SmallScroll ToRight:=8
Columns("T:T").Select
Range("T8327").Activate
Application.CutCopyMode = False
Selection.Style = "Comma [0]"
ActiveWorkbook.Save
Windows("Book2.xls").Activate
ActiveWindow.Close
ActiveCell.SpecialCells(xlLastCell).Select
Range("A8409").Select
End Sub

回答No.1

1050 円（@1050YEN） · ベストアンサー

この2行
-------------------------------------------------------
>ActiveCell.SpecialCells(xlLastCell).Select
>Range("A8356").Select
-------------------------------------------------------

を↓のように変更

-------------------------------------------------------
Dim objRange As Range

'最終セルを取得
Set objRange = ActiveCell.SpecialCells(xlLastCell)
'下に一個と、A列を選択して、セルを指定
objRange.Offset(1, (1 - objRange.Cells.Column)).Select
-------------------------------------------------------

お礼

ありがとうございました。
これで、仕事が楽になります。

今後ともよろしくお願い致します。