xlDownの使い分けについての質問です
vbaでxlDownを使って一覧近い空白までのセルをコピーしようとしています。
例えばA1からB3に数値が入っており、A4が空白の場合
A1からA3までをコピーします。
数値がA1にだけ入っている場合は、xlDownを使うと、A2以降の空白もコピーしてしまうのですが
A1だけ選択する方法はありますでしょうか。
①A1以降数値が入っている場合、1番近い空白までをコピー
②A1のみに数値が入っている場合、A1のみコピー
③A1を含め全て空白の場合、コピーしない
No.1ベストアンサー
- 回答日時:
こんにちは
書き方は色々ありますのでどの様な書き方が分かり易いのか・・・
ActiveCellとして書いて見ます
Sub test()
Range("A1").Select
If ActiveCell <> "" Then '③用分岐
If ActiveCell.Offset(1) <> "" Then '②用分岐
Range(ActiveCell, ActiveCell.End(xlDown)).Copy
Else
ActiveCell.Copy 'A1のみコピー
End If
End If
End Sub
どうでしょう
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelで行ごとコピー、同じ行を...
-
塗りつぶしの色をコピーするには
-
C+vのvは英語で何の頭文字...
-
WORDのグレー括弧って?
-
【エクセル】表の中の文字だけ...
-
エクセルでコピーしたものをコ...
-
コピーされたセルの文字が途中...
-
マイナスの場合「xxxx-」...
-
VBAのテキストボックスに文字列...
-
EXCEL 1つ飛ばしのセル参照
-
セルから一部だけを抜き出して...
-
ペーストのVって
-
Excel 3列毎のセルを別の表に抽...
-
xpsファイルをexcelに張り付けたい
-
googleで翻訳したテキストがコ...
-
PDFの一部を切り取って別のシー...
-
Wiresharkのパケットの詳細のテ...
-
シートのコピー、セル全体のコ...
-
xlDownの使い分けについての質...
-
VBAで確認メッセージを表示させ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelで行ごとコピー、同じ行を...
-
塗りつぶしの色をコピーするには
-
C+vのvは英語で何の頭文字...
-
【エクセル】表の中の文字だけ...
-
WORDのグレー括弧って?
-
Excel 3列毎のセルを別の表に抽...
-
コピーされたセルの文字が途中...
-
VBAのテキストボックスに文字列...
-
セルから一部だけを抜き出して...
-
マイナスの場合「xxxx-」...
-
エクセルでコピーしたものをコ...
-
セルに値がある行のみを抽出す...
-
EXCEL 1つ飛ばしのセル参照
-
Wiresharkのパケットの詳細のテ...
-
コピー&貼り付けの仕方を教え...
-
コピペができない(LibreOffice ...
-
エクセルでマクロにてセル色と...
-
【Excel】数式をそのまま他のシ...
-
Excel2010 図としてコピー ショ...
-
Wordの「背景色を消す方法」教...
おすすめ情報