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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBA オリジナル関数で選択セルの合計を作成したい 3 2023/03/19 19:45
- Excel(エクセル) エクセルVBA 複数行にまたがっている選択を判定するには 2 2023/05/21 21:54
- Excel(エクセル) excelで可視セルのみ置換 3 2022/08/04 11:02
- Excel(エクセル) エクセルのA1~A5の任意のセルを選んだら1、A6~A10のセルなら2と返す設定にしたいと思ってます 6 2023/03/20 18:46
- Excel(エクセル) ユーザー定義について質問です。 2 2023/06/28 13:21
- Excel(エクセル) 特定の位置にあるマクロボタンについて 2 2022/04/19 18:13
- Excel(エクセル) Excelにの以下の設定方法について教えてください! C列にデータ入力の設定をしています。(出、入を 3 2022/06/22 01:33
- Excel(エクセル) マクロを教えてください 3 2023/07/31 21:57
- Excel(エクセル) マクロを教えてください 2 2023/07/30 23:05
- その他(Microsoft Office) ワードのマクロについて教えてください。 1 2023/01/22 11:43
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
エクセル1行おきのセルを隣の列の一つ上に移動したい
Excel(エクセル)
-
エクセルの偶数行(奇数行)の抽出
Excel(エクセル)
-
excel シート1の奇数(偶数)行(列)のみをシート2にリンクさせる方法
Excel(エクセル)
-
-
4
エクセルVBA 1行飛ばしで転記するループ処理
Excel(エクセル)
-
5
一行おきにコピーするマクロが知りたい
Excel(エクセル)
-
6
Excel VBAでn行毎に行の選択
Excel(エクセル)
-
7
エクセルVBA 偶数のセルを奇数のセルに移動させたい!
Excel(エクセル)
-
8
エクセルVBA 4行飛ばしで転記するループ処理
Excel(エクセル)
-
9
EXCEL(VBA)で1行おきに行を選択する方法
Excel(エクセル)
-
10
Excelで奇数行を削除
Excel(エクセル)
-
11
範囲指定したセルを1つずつ飛ばす方法
Visual Basic(VBA)
-
12
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
13
コピーしたデータを2行ずつに貼り付け
その他(Microsoft Office)
-
14
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
15
文字列の中の検索で、3番目に出てくる文字の位置を調べたい
Excel(エクセル)
-
16
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
17
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
18
Excel VBA アクティブセルからある一定のセルまでの範囲選択
Excel(エクセル)
-
19
VBAで、離れた複数の列に対して処理を施すには?
Visual Basic(VBA)
-
20
エクセル マクロで奇数行の非表示
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル マクロ オートフィ...
-
[EXCEL]ボタン押す→時刻が表に...
-
エクセルで特定の文字列が入っ...
-
エクセル 上下で列幅を変えるには
-
excelのデータで色つき行の抽出...
-
特定の文字がある行以外を削除...
-
Excel グラフのプロットからデ...
-
【Excel関数】UNIQUE関数で"0"...
-
結合されたセルをプルダウンの...
-
サイズの違うセル 並べ変え
-
VBAで色の付いているセルの行削除
-
エクセル 時間の表示形式AM/PM...
-
エクセルマクロで偶数行(又は...
-
Excel2007で、指定範囲の行高さ...
-
エクセルVBA 最終行を選んで並...
-
エクセルVBAのEntireRow.Hidden...
-
セルの色によって条件文をつけ...
-
AのセルとB行を比較して、一致...
-
エクセル マクロで数値が変っ...
-
色付き行の非表示について
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル マクロ オートフィ...
-
エクセルで特定の文字列が入っ...
-
[EXCEL]ボタン押す→時刻が表に...
-
【Excel関数】UNIQUE関数で"0"...
-
特定の文字がある行以外を削除...
-
Excel グラフのプロットからデ...
-
excelのデータで色つき行の抽出...
-
AのセルとB行を比較して、一致...
-
結合されたセルをプルダウンの...
-
エクセル マクロで数値が変っ...
-
エクセル 上下で列幅を変えるには
-
VBAで色の付いているセルの行削除
-
excel 小さすぎて見えないセル...
-
A1に入力された文字列と同じ文...
-
罫線の斜線を自動で引くマクロ
-
アクティブになっている行をマ...
-
エクセル2016で時間を入力して...
-
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初心者で申し訳ありません