
こんにちは。マクロ初心者です。
早速ですがやりたい事を書きます!
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も見ています
-
みんなに挑戦してほしい「色彩検定」
これまで多くの方々が受検したが「色彩検定」。その目的や活用法は人それぞれ。今回は、色彩検定に影響を受けた男女3名にインタビュー。
-
エクセルVBAでのオートフィル
Excel(エクセル)
-
アクティブセルから、A列最終行までフィルダウン
Excel(エクセル)
-
VBAで複数の数式セルを最終行までコピーするには?
Excel(エクセル)
-
4
オートフィルのマクロを作りたい
Excel(エクセル)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
エクセルマクロにて最終行まで数式をコピーする構文
Excel(エクセル)
-
7
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
8
マクロで任意の列を参照して、オートフィルをする方法が知りたいです。
Excel(エクセル)
-
9
VBAで文字列を数値に変換したい
Excel(エクセル)
-
10
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
11
エクセルマクロ 行数可変のオートフィルター構文
Excel(エクセル)
-
12
ExcelのVBAで連番を振る。
Excel(エクセル)
-
13
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
14
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
15
VBAで特定の文字が入力されたセルを選択
Excel(エクセル)
-
16
別のシートから値を取得するとき
Visual Basic(VBA)
-
17
VBAでセル入力の数式に変数を用いたい
Excel(エクセル)
-
18
ピボットテーブルでの毎回可変するデータの最終行までの範囲を指定したいです。
PowerPoint(パワーポイント)
-
19
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
20
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
エクセルで特定の文字列が入っ...
-
5
Excel グラフのプロットからデ...
-
6
AのセルとB行を比較して、一致...
-
7
[EXCEL]ボタン押す→時刻が表に...
-
8
セルではなく行や列、シート全...
-
9
結合されたセルをプルダウンの...
-
10
特定の文字がある行以外を削除...
-
11
excel 小さすぎて見えないセル...
-
12
VBAで色の付いているセルの行削除
-
13
"/"でセル内の文字を縦に分割す...
-
14
アクティブになっている行をマ...
-
15
EXCELで最後の行を固定
-
16
Excelで非表示のセルをとばして...
-
17
エクセルマクロで偶数行(又は...
-
18
Excelで結合されたセルの間に列...
-
19
VBAで行削除のできない場合がある
-
20
excelのデータで色つき行の抽出...
おすすめ情報
公式facebook
公式twitter