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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル関数CONCATENATEで0が...
-
EXCEL 二つずつ連続して表示し...
-
シート順のオートフィルの設定...
-
【Excel 関数】 INDIRECT関数の...
-
VBA:変数を使用したオートフィ...
-
エクセル SUMPRODUCT と OFFSET
-
同じ数値だったら、横の数値を...
-
エクセル オートフィルオプション
-
エクセルの複数のセルを一括で...
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
Excelの入力規則で2列表示したい
-
Excelで同じセルに箇条書きをし...
-
リンク元の日付が空白の時リン...
-
A1セルに入力したら、入力時間...
-
SUMに含まれる範囲から特定のセ...
-
複数の文字列のいずれかが含ま...
-
セルを結合したA4とA5の条件付...
-
エクセルオートフィルタで余計...
-
IF関数で0より大きい数値が入力...
-
excelでSUBTOTAL関数を設定した...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル関数CONCATENATEで0が...
-
EXCEL 二つずつ連続して表示し...
-
同じ数値だったら、横の数値を...
-
エクセル SUMPRODUCT と OFFSET
-
Excelで離れたセルに連続したデ...
-
111,222,333・・・とオートフィ...
-
Excelで2つの表を1つにまとめ...
-
【Excel 関数】 INDIRECT関数の...
-
スプレッドシートのIMPORTRANGE...
-
シート順のオートフィルの設定...
-
エクセルで画像のハイパーリン...
-
Excelで別シートの表から指定セ...
-
可視セルから結合セルへの貼り...
-
エクセル オートフィルオプション
-
VBA:変数を使用したオートフィ...
-
エクセルの複数のセルを一括で...
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
Excelで同じセルに箇条書きをし...
-
A1セルに入力したら、入力時間...
-
Excelの入力規則で2列表示したい
おすすめ情報