
こんにちは。マクロ初心者です。
早速ですがやりたい事を書きます!
A B C
1 名前 住所 TEL
2 あ い
3 う え
4 お か
…
100 き く
上記のような状態で、C2セルにある関数(実際にはvlookupです)
を入力し、オートフィルをC2からC100にかけたいです。
ただ、行数は毎回変化するので、AutoFill Destination は
固定ではなく、CurrentRegion の最終行までとしたいです。
どう記述すればよろしいでしょうか?
教えていただけましたら非常にうれしいです。
何卒よろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
Range("c2").AutoFill Destination:=Range("C2:C" & Cells(3).CurrentRegion.Rows.Count)
でいかがでしょう。
途中で空白がある場合
Range("c2").AutoFill Destination:=Range("C2:C" & Range("C65536").End(xlUp).Row)
がいいでしょう
ありがとうございました。
大変簡潔に、私のやりたい事をご回答いただきました。
Range("C2:C" & ~)の書き方を初めて知りました。
とても参考になりました。
No.3
- 回答日時:
初心者なら、判らないというのでなく、マクロの記録の力を借りること。
そのためにはエクセルの操作を知っていないと扱えないが。ーー
最終行を捉えル操作は
(1)編集ージャンプーセル選択ー最後のセル
Sub test01()
r=Range("a1:C100").SpecialCells(xlCellTypeLastCell).Row
MsgBox r
End Sub
(2)その列の十分下のセルを選択してENDキーのあとに上矢印キー
Sub test02()
r= Range("B65536").End(xlUp).Row
MsgBox r
End Sub
ーーー
おーとふぃるコピー貼り付けの操作
マクロの記録
Selection.Copy
Range("D2:D21").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
このRange("D2:D21")の21のところをRange("D2:D" & r).・・
に変える。rは上記で求めた最下行数です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
アクティブセルから、A列最終行までフィルダウン
Excel(エクセル)
-
VBAで複数の数式セルを最終行までコピーするには?
Excel(エクセル)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
エクセルVBAでのオートフィル
Excel(エクセル)
-
6
VBA 最終行まで数式をコピーする
Visual Basic(VBA)
-
7
エクセルマクロ 行数可変のオートフィルター構文
Excel(エクセル)
-
8
Rangeメソッドは失敗しました。globalオブジェクトについて
Excel(エクセル)
-
9
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
10
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
11
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
12
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
13
オートフィルのマクロを作りたい
Excel(エクセル)
-
14
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
15
VBAで特定の文字が入力されたセルを選択
Excel(エクセル)
-
16
マクロで#N/A"のエラー行を削除したい"
Visual Basic(VBA)
-
17
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
18
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
19
ExcelのVBAのAutoFillの使い方について
Excel(エクセル)
-
20
VBAで文字列を数値に変換したい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
【Excel関数】UNIQUE関数で"0"...
-
Excel グラフのプロットからデ...
-
excelのデータで色つき行の抽出...
-
エクセル 上下で列幅を変えるには
-
エクセル マクロ オートフィ...
-
AのセルとB行を比較して、一致...
-
結合されたセルをプルダウンの...
-
エクセル 時間の表示形式AM/PM...
-
エクセルVBA 最終行を選んで並...
-
excel セルの結合を条件付で自...
-
Excel 時刻の並び替え
-
特定の文字がある行以外を削除...
-
エクセルマクロで偶数行(又は...
-
直近の5個の平均を求めたい
-
[EXCEL]ボタン押す→時刻が表に...
-
EXCELで最後の行を固定
-
エクセル マクロで数値が変っ...
-
エクセルVBA:リストに登録した...
-
Excelで行と列のガイドを出したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【Excel関数】UNIQUE関数で"0"...
-
エクセルで特定の文字列が入っ...
-
エクセル マクロ オートフィ...
-
【マクロ】book1からbook2への...
-
[EXCEL]ボタン押す→時刻が表に...
-
Excel グラフのプロットからデ...
-
AのセルとB行を比較して、一致...
-
エクセル 上下で列幅を変えるには
-
結合されたセルをプルダウンの...
-
アクティブになっている行をマ...
-
excel 小さすぎて見えないセル...
-
excelのデータで色つき行の抽出...
-
エクセル マクロで数値が変っ...
-
VBAで「Shift+ctrl+↓」のような...
-
特定の文字がある行以外を削除...
-
Excel 時刻の並び替え
-
エクセルVBA 最終行を選んで並...
-
Excelのフィルター後の一番上の...
-
エクセル2016で時間を入力して...
-
連続データが入った行の一番右...
おすすめ情報