[[20150302203552]]　『データ行数が毎回かわるExcelの行の選択マクロにａx（J）　ページの最後に飛ぶ

『データ行数が毎回かわるExcelの行の選択マクロについて』（J）

Excelマクロの記録で作っています。
伝票Excelは毎回アクセスからデータを出していて毎回データの行数が変わります。
伝票Excelと店舗コードExcelがあり
伝票ExcelのY:2の所に=VLOOKUP

                  伝票Excel O(店舗コード)
                  店舗ExcelA～D
                  4
                  0
としてY:2に数を出しています。
その後Y:2の数が出た結果の右下にカーソルを持ってきて
カーソルを+の形にして伝票Excelの行数最後まで引っ張って数を出しています。
毎回データの行数が違うのでY:2の式をコピーして最終行までコピーしたいと考えました。

Range("Y2").Select
Vecell.FormulaR1C1="VLOOKUP(RC【-10】,店舗マスタ！C【-24】:C【-21】,4,0)
としたあとにY行の最終行までと思い
Range("Y2").Select
Selection.Copy
Range(cells(2.25),(lastrow,25))
Activeseet.paste

としてみましたが
Range(cells(2.25),(lastrow,25))
の所がコンパイルエラーです。となってしまいます。

どのように直したらよいでしょうか？

＜使用 Excel：unknown、使用 OS：Windows8 ＞

 こんなので試してみてください。

 Sub Macro1()
     Sheets("伝票").Select
     Range("Y2").FormulaR1C1 = "=VLOOKUP(RC[-10],店舗マスタ!C[-24]:C[-21],4,0)"
     Range("Y2").AutoFill Destination:=Range("Y2:Y" & Range("X2").End(xlDown).Row)
 End Sub

（半平太） 2015/03/02(月) 22:32

コメント返信：

[ 一覧(最新更新順) ]

[[20150302203552]] 『データ行数が毎回かわるExcelの行の選択マクロにａx（J） ページの最後に飛ぶ

[[20150302203552]]　『データ行数が毎回かわるExcelの行の選択マクロにａx（J）　ページの最後に飛ぶ