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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
アクティブセルから、A列最終行までフィルダウン
Excel(エクセル)
-
-
4
VBAで複数の数式セルを最終行までコピーするには?
Excel(エクセル)
-
5
エクセルマクロ 行数可変のオートフィルター構文
Excel(エクセル)
-
6
【Excel VBA】一番右端セルまでの範囲指定の仕方(途中に空白セルあり)
Visual Basic(VBA)
-
7
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
8
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
9
オートフィルのマクロを作りたい
Excel(エクセル)
-
10
VBAでオートフィルを行の途中から使いたい
Excel(エクセル)
-
11
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
12
VBA 数式を最終行までコピー
Excel(エクセル)
-
13
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
14
エクセルでエラーが出て困っています。
Excel(エクセル)
-
15
エクセルマクロエラー「'Cells'メソッドは失敗しました。'_Global'オブジェクト」について
Excel(エクセル)
-
16
Excelで、activecellから最終列まで選択するvbaはどうすれば?
Excel(エクセル)
-
17
Excel &で他セルを参照させた時の時刻の表示がシリアル値になってしまう
Excel(エクセル)
-
18
VBAでダブルコーテーション入りの数式をセルにセットしたい
Visual Basic(VBA)
-
19
EXCEL2007マクロ/オートフィルについて
Visual Basic(VBA)
-
20
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
自治会の通常総会の年度について
-
カレンダーの日付 5/Bの意味に...
-
総会の年度表記について
-
確認ですが普通5月までに決める...
-
月の最後の週の呼び名は?
-
「6月まで」というのは6月以内...
-
10月をもって辞めるって、10...
-
8月までっていつまでのことでし...
-
エクセルのフィルターを複数シ...
-
今は何年度ですか?
-
昔の愛称?「~の字」
-
○年後の3月末日を関数で出したい
-
「1年以上」の定義について
-
ゴールデンウィークが大嫌いな...
-
VBA ユーザーフォームのChange...
-
12:00 PM は何時?
-
入社が2月1日とした場合、3ヶ月...
-
満何歳の意味
-
VBAで先月、先々月を求める方法
-
ACCESSでひとつのフィールドに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
自治会の通常総会の年度について
-
総会の年度表記について
-
満何歳の意味
-
ひな祭りに外食するならどこで...
-
月の最後の週の呼び名は?
-
確認ですが普通5月までに決める...
-
10月をもって辞めるって、10...
-
カレンダーの日付 5/Bの意味に...
-
「6月まで」というのは6月以内...
-
学校の在籍機関
-
8月までっていつまでのことでし...
-
エクセルのフィルターを複数シ...
-
入社が2月1日とした場合、3ヶ月...
-
昔の愛称?「~の字」
-
「1年以上」の定義について
-
一ヶ月前、一ヶ月後
-
卒業式に着る袴をお店でレンタ...
-
○年後の3月末日を関数で出したい
-
「陽気」という言葉の使い方
-
VBA ユーザーフォームのChange...
おすすめ情報