No.2ベストアンサー
- 回答日時:
こんばんは!
一例です。
オートフィルしたいセルをアクティブにして(質問文ではA1セルをアクティブにして)↓のマクロを実行してみてください。
Sub test()
Dim i, j, k As Long
k = InputBox("オーフィルする列数を入力") - 1
i = Selection.Row
j = Selection.Column
Selection.AutoFill Destination:=Range(Cells(i, j), Cells(i, j + k))
End Sub
こういうコトですかね?m(_ _)m
No.5
- 回答日時:
標題の>オートフィルタ、はデータを選択する仕組み、だ。
一方>オートフィルはセルに値を入れるやり方。
多分この質問は後者だろう。十分注意して質問を書いてもらわないと、回答者に迷惑をかけるよ。
ーーー
もしオートフィルで在れば、マクロの記録を採って考えましたか。初心者はそこから考えるべきだ。
Sub Macro4()
Range("A1").Select
Selection.AutoFill Destination:=Range("A1:D1"), Type:=xlFillDefault
Range("A1:D1").Select
End Sub
となる。このD1を指定した者に、変化させるコードを考える。
Sub Macro5()
'Range("A1").Select
x = InputBox("列数=")
r = Selection.Row: c = Selection.Column
Selection.AutoFill Destination:=Range(Cells(r, c), Cells(r, c + x - 1)), Type:=xlFillDefault
End Sub
ーーー
操作
元になるデータを入力しておいて、そのセルを選択
プログラム実行
列数を入力
結果
列数(元になるセルも含めて)列数分オートフィルされる。
No.4
- 回答日時:
No.1です。
よくよく質問を読めばオートフィルと書いてある。。。
オートフィルならNo.2さんが正解ですね。
No.1は忘れて下さい。
この回答へのお礼
お礼日時:2011/08/07 20:32
紛らわしいことをしてしまってすいません。
実はオートフィルタも必要だったので、参考にさせていただきます。
ありがとうございました。
No.3
- 回答日時:
No.2です!
投稿した後に気づいたのですが・・・
「オートフィルタ」をご希望なら前回の投稿は無視してください。
「オートフィル」のコードを投稿していました。m(_ _)m
No.1
- 回答日時:
例えば、以下のようになります。
Sub Macro1()
Dim i As Long
i = Cells(1, 1)
Range(Cells(1, 1), Cells(1, i)).AutoFilter
End Sub
以上
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの関数式を教えてください。 2 2022/11/29 21:09
- Excel(エクセル) エクセルVBAでセルに表示されているとおりの数値を取得したい(時間の計算結果) 1 2022/03/30 17:52
- Excel(エクセル) エクセルで、 A1セルに「A」という値、 B1セルに「B」という値が入っています。 どちらも表示形式 5 2023/02/22 23:05
- その他(Microsoft Office) IF関数について教えてください 2 2022/05/10 13:31
- Excel(エクセル) エクセル関数教えてください 3 2022/06/21 10:22
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) エクセルで教えて下さい。 2 2022/05/18 13:00
- Excel(エクセル) Excelについて A1からA12まで、1月〜12月と入力し、 B1からB12の範囲に、C1とD1に 4 2022/05/26 22:48
- Excel(エクセル) ある範囲のセルに何を入力すると、別のセルに○を表示させる 3 2022/04/05 15:51
- Excel(エクセル) エクセルで月末、月初の判定をしたい。 4 2022/05/18 23:22
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCEL 二つずつ連続して表示し...
-
エクセル SUMPRODUCT と OFFSET
-
エクセル関数CONCATENATEで0が...
-
同じ数値だったら、横の数値を...
-
111,222,333・・・とオートフィ...
-
可視セルから結合セルへの貼り...
-
スプレッドシートのIMPORTRANGE...
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
複数の文字列のいずれかが含ま...
-
A1セルに入力したら、入力時間...
-
Excelの入力規則で2列表示したい
-
Excelで同じセルに箇条書きをし...
-
エクセルで日付から日にちを削...
-
excelでSUBTOTAL関数を設定した...
-
参照先セルに値が入っていない...
-
リンク元の日付が空白の時リン...
-
エクセルでセルを10個分くらい...
-
エクセルの複数のセルを一括で...
-
IF関数で0より大きい数値が入力...
-
Excelで表を作り、自動で今月の...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル関数CONCATENATEで0が...
-
同じ数値だったら、横の数値を...
-
111,222,333・・・とオートフィ...
-
EXCEL 二つずつ連続して表示し...
-
Excelで2つの表を1つにまとめ...
-
Excelで離れたセルに連続したデ...
-
スプレッドシートのIMPORTRANGE...
-
シート順のオートフィルの設定...
-
【Excel 関数】 INDIRECT関数の...
-
エクセルで画像のハイパーリン...
-
エクセル SUMPRODUCT と OFFSET
-
エクセルで1行ごとに異なる計算...
-
連続するシートを一つにまとめ...
-
VBA:変数を使用したオートフィ...
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
A1セルに入力したら、入力時間...
-
エクセルの複数のセルを一括で...
-
Excelで同じセルに箇条書きをし...
-
複数の文字列のいずれかが含ま...
-
Excelの入力規則で2列表示したい
おすすめ情報