
No.4
- 回答日時:
こんばんは。
通常は、ショートカットを使えばよいです。
A1, B1
のセルがあるとして、A1 に値を入れ、A1の右下角(フィル)をダブルクリックすると、自動的に、B列のデータの終わりまで、オートフィルが利きます。
しかし、それは、オートフィルのデフォルトなので、最後の四角のイメージ(オートフィルオプション)が出てきますから、それをクリックして、「セルのコピー」を選択すればよいです。
マクロでしたら、
Sub TestCopy()
With Range("B1", Range("B65536").End(xlUp))
If .Cells(1, 1).Offset(, -1).Value = "" Then
MsgBox "最初のセルに値がありません。", 48
Exit Sub
End If
.Cells(1, 1).Offset(, -1).Copy .Offset(, -1)
''オートフィルの場合
''.Cells(1, 1).Offset(, -1).AutoFill Destination:=.Offset(, -1)
End With
End Sub
No.3
- 回答日時:
解決されていると思いますが、こんな構文でも。
最初の
>Range("A1").Select
のセレクトは不要です。この例では問題になりませんが、セレクトが多いと処理が遅くなる原因にもなりますよ。
Range("A1").AutoFill Destination:=Range(Range("A1"), _
Range("B65536").End(xlUp).Offset(0, -1)), Type:=xlFillCopy
Range(Range("A1"), Range("A65536").End(xlUp)).Select
No.1
- 回答日時:
>B列の最後の行と隣り合ったセルまで
ということは具体的にどういうこと。C列についてB列の最終行までか。
実例を挙げないからこんな疑問が出る。
ーー
下記でどうかな。
Sub test01()
d = Range("B65536").End(xlUp).Row
Set rng = Range("C1:C" & d)
MsgBox rng.Address
With Range("C1") 'スタート値
.Value = "1月"
.AutoFill Destination:=rng
End With
'Range("A1:A11").Select
End Sub
結果
B列 C列
1月
2月
3月
4月
5月
6月
7月
8月
9月
10月
11月
12月
sss1月
B列に最下行でsssがあり、その行までC列にデータを入れた。
ーー
.Value = "睦月"にすると
睦月
如月
弥生
・・
となる(余談)
この回答への補足
A B C
1 copy a
2 ↓ a
3 a
4 a
5 a
6 a
7 a
8 a
9 a
10 a
ココマデ
B列の10行まで書き込まれているとします。
Aの[copy]をB列の最後、
10行目と同じところまでコピーしたいのです。
B列の数は毎回変わります。
すいません説明不足です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) データのある範囲を選択するVBAについて 2 2022/09/03 00:20
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) いつもお世話になります 下記のコード実行すると エラーになります わかるかた教えてくれませんでしょう 6 2022/12/17 15:01
- Excel(エクセル) Excleマクロ セル値の代入と文字列の結合について 3 2022/10/05 16:47
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Excel(エクセル) ExcelVBAについて。 2 2022/12/10 20:08
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) エクセルのVBAでダブルクリックでチェックを入れたあと 1 2022/10/26 20:30
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
このQ&Aを見た人はこんなQ&Aも見ています
-
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
エクセルマクロ 行数可変のオートフィルター構文
Excel(エクセル)
-
-
4
アクティブセルから、A列最終行までフィルダウン
Excel(エクセル)
-
5
オートフィルのマクロを作りたい
Excel(エクセル)
-
6
VBAで複数の数式セルを最終行までコピーするには?
Excel(エクセル)
-
7
エクセルVBAで、値が入っている最終行の、右隣の値をコピーして、別のセルに貼り付けるコード
Excel(エクセル)
-
8
VBAで文字列を数値に変換したい
Excel(エクセル)
-
9
【Excel VBA】CSV取込時、数字の先頭の0を消えないようにするには?
Excel(エクセル)
-
10
VBA 最終行までオートフィル
その他(Microsoft Office)
-
11
Excelでカーソルの右下をダブルクリックする操作のキーボードショートカット
Excel(エクセル)
-
12
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
13
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
14
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
15
VBAでオートフィルを行の途中から使いたい
Excel(エクセル)
-
16
VBA 最終行まで数式をコピーする
Visual Basic(VBA)
-
17
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
18
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
19
Excel2000/VBA:値と書式のみ貼り付けたい。
Excel(エクセル)
-
20
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「6月まで」というのは6月以内...
-
月の最後の週の呼び名は?
-
自治会の通常総会の年度について
-
確認ですが普通5月までに決める...
-
「なんで付き合おうと思ったか...
-
10月をもって辞めるって、10...
-
入社が2月1日とした場合、3ヶ月...
-
8月までっていつまでのことでし...
-
玄関に飾る「お飾り」をまだ飾...
-
昔の愛称?「~の字」
-
字
-
クリスマスとクリスマスイブ
-
記念日
-
クリスマスに飲み会
-
昔は何歳くらいからお酒を飲ん...
-
エクセルに関して教えてください。
-
もう一生いい人と付き合えない...
-
八朔に相撲をとるのはなぜ?
-
カレンダーの日付 5/Bの意味に...
-
昭和と平成、大正と昭和の境目
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
自治会の通常総会の年度について
-
カレンダーの日付 5/Bの意味に...
-
確認ですが普通5月までに決める...
-
月の最後の週の呼び名は?
-
エクセルのフィルターを複数シ...
-
総会の年度表記について
-
8月までっていつまでのことでし...
-
入社が2月1日とした場合、3ヶ月...
-
「6月まで」というのは6月以内...
-
10月をもって辞めるって、10...
-
「1年以上」の定義について
-
昔の愛称?「~の字」
-
昔は何歳くらいからお酒を飲ん...
-
御入園?ご入園?
-
定年になる年度を関数で算出したい
-
月度ってどういう意味ですか
-
満何歳の意味
-
「なんで付き合おうと思ったか...
-
○年後の3月末日を関数で出したい
-
何故か毎年3月や4月に不運が続...
おすすめ情報