こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

毎回最終セルを探す。

お世話になります。

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

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

投稿日時 - 2005-10-27 14:22:57

QNo.1739297

すぐに回答ほしいです

質問者が選んだベストアンサー

この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
-------------------------------------------------------

投稿日時 - 2005-10-27 14:37:25

お礼

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

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

投稿日時 - 2005-10-27 15:16:06

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問