![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
VBA初心者です。
EXCEL2007でオートフィルのマクロを作ったのですが、下記のケースで困っています。
A列のデータが入っている行までB列のデータをオートフィルで入力したく、
A列の最終行からデータが入っている行までを求めてB列のデータをオートフィルで入れるため、下記のマクロを設定しました。
Sub test()
Range("B1").AutoFill Destination:=Range("B1", Range("A1048576").End(xlUp).Offset(, 1))
End Sub
ところが、A列のデータが2行以上ある場合はうまくいくのですが、一行のみだった場合オートフィルができなくてマクロがとまってしまいます。
一行なので当然なのですが、このような処理をしたい場合、他に方法はないものでしょうか?
お知恵を拝借できますと大変助かります。
どうぞよろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
こんにちは。
2行以上ある場合だけ処理するように条件分岐してみましょう.。
Sub Re7755068a()
With Range("B1", Range("A1048576").End(xlUp).Offset(, 1))
If .Count > 1 Then Range("B1").AutoFill Destination:=.Cells
End With
End Sub
> ところが、A列のデータが2行以上ある場合はうまくいくのですが、一行のみだった場合オートフィルができなくてマクロがとまってしまいます。
エラーを回避する為にはどうすればよいか、という方向に考えを進めるのが第一です。
cj_moverさま
大変明快に教えてくださりありがとうございました!
必要としていた処理がスムーズに進むようになりました!
早々のご回答とても嬉しかったです。
行き詰まった時に助けてくださるcj_moverさまのような方がいらして、
本当にありがたかったです。心から感謝いたしますm(__)m。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【VBA】条件に一致しない行を削...
-
エクセルで空白行を削除する ...
-
【VBA】条件に一致しない行を削...
-
エクセルのデータがない行には...
-
VB.net
-
条件に合った行を削除するマク...
-
各個体に対する平均値の自動計...
-
列から特定の文字列検索→該当以...
-
【至急】Excel 同一人物の情報...
-
マクロにて指定の文字間の文字...
-
エクセルで階層図を作る方法
-
VBA 複数列コンボボックス 値の...
-
マクロで最終行を取得してコピ...
-
Excel マクロ 検索結果を別シ...
-
エクセルVBAでデータの蓄積方法?
-
Excelで、マウスで範囲を選択し...
-
Excel97 指定した行だけマク...
-
Excel VBAでオートフィルタで抽...
-
VBAで保存しないで閉じると空の...
-
Excel マクロの編集がグレーに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
マクロで最終行を取得してコピ...
-
【VBA】条件に一致しない行を削...
-
エクセルで空白行を削除する ...
-
VB.net
-
エクセルのデータがない行には...
-
数値に見えるものはすべて数値...
-
【VBA】条件に一致しない行を削...
-
【マクロ】A列最終行までを、カ...
-
エクセルで階層図を作る方法
-
Excel VBAでオートフィルタで抽...
-
VBAでの重複データに色付け
-
Excel マクロ 検索結果を別シ...
-
Excel VBA オートフィルタの結...
-
各個体に対する平均値の自動計...
-
Access2003レポート:最終ペー...
-
EXCEL VBAでA列にある空白行よ...
-
Excelで、あるセルの値に応じて...
-
Excel97 指定した行だけマク...
-
エクセルのVBAで指定した行数の...
-
マクロにて指定の文字間の文字...
おすすめ情報