No.2ベストアンサー
- 回答日時:
No.1です。
補足コメントにあるコードの説明ですが・・・
最初の行(今回の場合は i が 6 の時)の「myRng」は「Nothing」の状態なので
「myRng」に「A列 i 行の右となり1列(A・B列)の範囲」を「myRng」に格納します。
それ以降が
>Else
以降になりますので、
「myRng」の格納範囲をUnionメソッドで次々に付け加えているだけです。
※ Unionメソッドに関しては当方がココで説明するより
ネットで検索してもらった方が判りやすい説明になっていると思います。m(_ _)m
マクロ記録を使い手作業でセルを選択していたのですが
構文がこんなに短くなるんですね、、、、凄いです。
このマクロを一行づつ勉強します
有り難うございました
No.1
- 回答日時:
こんばんは!
色々やり方はありますが、一例です。
Sub Sample1()
Dim i As Long, myRng As Range
For i = 6 To 300 Step 2
If myRng Is Nothing Then
Set myRng = Cells(i, "A").Resize(, 2)
Else
Set myRng = Union(myRng, Cells(i, "A").Resize(, 2))
End If
Next i
myRng.Select
End Sub
こんな感じでも大丈夫だと思います。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセル1行おきのセルを隣の列の一つ上に移動したい
Excel(エクセル)
-
エクセルの偶数行(奇数行)の抽出
Excel(エクセル)
-
一行おきにコピーするマクロが知りたい
Excel(エクセル)
-
-
4
エクセルVBA 偶数のセルを奇数のセルに移動させたい!
Excel(エクセル)
-
5
excel シート1の奇数(偶数)行(列)のみをシート2にリンクさせる方法
Excel(エクセル)
-
6
Excelで奇数行を削除
Excel(エクセル)
-
7
範囲指定したセルを1つずつ飛ばす方法
Visual Basic(VBA)
-
8
Excel VBAでn行毎に行の選択
Excel(エクセル)
-
9
エクセルVBA 4行飛ばしで転記するループ処理
Excel(エクセル)
-
10
エクセルVBA 1行飛ばしで転記するループ処理
Excel(エクセル)
-
11
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
12
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
13
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
14
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
15
【Excel マクロ】別シートの表に1行おきにデータを貼り付けしたい
Excel(エクセル)
-
16
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
17
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
18
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
19
Excel-VBAでInputBox+Pulldownは可能??
Visual Basic(VBA)
-
20
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
エクセル 上下で列幅を変えるには
-
エクセルVBA:データ端に画...
-
エクセル マクロ オートフィ...
-
【Excel関数】UNIQUE関数で"0"...
-
[EXCEL]ボタン押す→時刻が表に...
-
VBAで色の付いているセルの行削除
-
A1に入力された文字列と同じ文...
-
セルの色によって条件文をつけ...
-
特定の文字がある行以外を削除...
-
エクセル 時間の表示形式AM/PM...
-
結合されたセルをプルダウンの...
-
Excel グラフのプロットからデ...
-
エクセル マクロで数値が変っ...
-
エクセルVBA 最終行を選んで並...
-
エクセルマクロで偶数行(又は...
-
Excelでカタカナ・ひらがな・英...
-
EXCEL VBA マクロ 別シートの...
-
エクセルの列幅以上の文字列を...
-
空白行から空白行までの合計値...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
【Excel関数】UNIQUE関数で"0"...
-
特定の文字がある行以外を削除...
-
エクセル マクロ オートフィ...
-
[EXCEL]ボタン押す→時刻が表に...
-
AのセルとB行を比較して、一致...
-
VBAで色の付いているセルの行削除
-
Excel グラフのプロットからデ...
-
エクセル マクロで数値が変っ...
-
excel 小さすぎて見えないセル...
-
エクセル 上下で列幅を変えるには
-
罫線の斜線を自動で引くマクロ
-
結合されたセルをプルダウンの...
-
セルの色によって条件文をつけ...
-
エクセルのマクロで意図しない...
-
エクセルVBA 最終行を選んで並...
-
excelのデータで色つき行の抽出...
-
Excelのフィルター後の一番上の...
-
エクセル 時間の表示形式AM/PM...
-
Excelでカタカナ・ひらがな・英...
おすすめ情報
ゴールデンウィーク中にありがとうございます。
そうか、”Step 2” という手がありましたね 忘れていました。(^_^;)
もし宜しければ
If myRng Is Nothing Then
Set myRng = Cells(i, "A").Resize(, 2)
Else
Set myRng = Union(myRng, Cells(i, "A").Resize(, 2))
この構文の意味を教えて頂けないでしょうか
VBA初心者で申し訳ありません