
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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
エクセルマクロ 行数可変のオートフィルター構文
Excel(エクセル)
-
-
4
アクティブセルから、A列最終行までフィルダウン
Excel(エクセル)
-
5
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
6
エクセルVBAで、値が入っている最終行の、右隣の値をコピーして、別のセルに貼り付けるコード
Excel(エクセル)
-
7
VBAでオートフィルを行の途中から使いたい
Excel(エクセル)
-
8
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
9
VBAで文字列を数値に変換したい
Excel(エクセル)
-
10
【Excel VBA】CSV取込時、数字の先頭の0を消えないようにするには?
Excel(エクセル)
-
11
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
12
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
13
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
14
VBA データ(特定値)のある最終行を取得したい
Excel(エクセル)
-
15
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
16
マクロで任意の列を参照して、オートフィルをする方法が知りたいです。
Excel(エクセル)
-
17
【VBA】条件に一致しない行を削除したい
Visual Basic(VBA)
-
18
VBA 最終行までオートフィル
その他(Microsoft Office)
-
19
マクロボタンを押すと、ファイル名を“日付(年月日)_文字.xlsx”にして指定ファイルに保存したいの
Excel(エクセル)
-
20
Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
月の最後の週の呼び名は?
-
カレンダーの日付 5/Bの意味に...
-
8月までっていつまでのことでし...
-
自治会の通常総会の年度について
-
入社が2月1日とした場合、3ヶ月...
-
10月をもって辞めるって、10...
-
「1年以上」の定義について
-
定年になる年度を関数で算出したい
-
母の日、父の日っていつですか?...
-
「6月まで」というのは6月以内...
-
神棚にお供えしていた榊をトイ...
-
昔の愛称?「~の字」
-
総会の年度表記について
-
願望 春より秋がよし 思い立つ...
-
エクセルのフィルターを複数シ...
-
自分が彼氏に冷めそうで怖いで...
-
「なんで付き合おうと思ったか...
-
高校生カップルがクリスマスにH...
-
例文「7月までは、このままで」と...
-
「おじろく」は長男が死んだら...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
月の最後の週の呼び名は?
-
カレンダーの日付 5/Bの意味に...
-
「6月まで」というのは6月以内...
-
自治会の通常総会の年度について
-
エクセルのフィルターを複数シ...
-
10月をもって辞めるって、10...
-
8月までっていつまでのことでし...
-
入社が2月1日とした場合、3ヶ月...
-
確認ですが普通5月までに決める...
-
総会の年度表記について
-
昔は何歳くらいからお酒を飲ん...
-
「1年以上」の定義について
-
定年になる年度を関数で算出したい
-
「なんで付き合おうと思ったか...
-
昔の愛称?「~の字」
-
満何歳の意味
-
月度ってどういう意味ですか
-
○年後の3月末日を関数で出したい
-
本願寺教如書状
-
VBA ユーザーフォームのChange...
おすすめ情報