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(エクセル)
-
エクセルVBA 偶数のセルを奇数のセルに移動させたい!
Excel(エクセル)
-
-
4
excel シート1の奇数(偶数)行(列)のみをシート2にリンクさせる方法
Excel(エクセル)
-
5
エクセルVBA 1行飛ばしで転記するループ処理
Excel(エクセル)
-
6
一行おきにコピーするマクロが知りたい
Excel(エクセル)
-
7
エクセルVBA 4行飛ばしで転記するループ処理
Excel(エクセル)
-
8
範囲指定したセルを1つずつ飛ばす方法
Visual Basic(VBA)
-
9
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
10
Excelで奇数行を削除
Excel(エクセル)
-
11
EXCEL(VBA)で1行おきに行を選択する方法
Excel(エクセル)
-
12
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
13
excelで奇数の行のみ削除したい
Excel(エクセル)
-
14
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
15
Excel VBAでn行毎に行の選択
Excel(エクセル)
-
16
エクセルで条件に一致したセルの隣のセルを取得したい
その他(Microsoft Office)
-
17
【Excel マクロ】別シートの表に1行おきにデータを貼り付けしたい
Excel(エクセル)
-
18
エクセルで空白行を削除する 2列とも空白の場合のみ
その他(Microsoft Office)
-
19
A1セルに入力したら、入力時間をA2セルに自動挿入
Excel(エクセル)
-
20
エクセルである行以下全部を削除する方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel ウインドウ枠の固定をす...
-
エクセル マクロ オートフィ...
-
エクセルで特定の文字列が入っ...
-
【Excel関数】UNIQUE関数で"0"...
-
Excel グラフのプロットからデ...
-
エクセル マクロ等を利用した各...
-
セルではなく行や列、シート全...
-
結合されたセルをプルダウンの...
-
エクセル 上下で列幅を変えるには
-
[EXCEL]ボタン押す→時刻が表に...
-
EXCELで最後の行を固定
-
エクセルマクロで偶数行(又は...
-
A1に入力された文字列と同じ文...
-
EXCEL 「最後のセル」のリセット
-
エクセルのマクロで意図しない...
-
エクセルVBA:リストに登録した...
-
EXCELマクロを使い、空白行では...
-
VBAで色の付いているセルの行削除
-
Excel2007で、指定範囲の行高さ...
-
エクセル マクロで数値が変っ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
エクセル マクロ オートフィ...
-
【Excel関数】UNIQUE関数で"0"...
-
結合されたセルをプルダウンの...
-
[EXCEL]ボタン押す→時刻が表に...
-
excel 小さすぎて見えないセル...
-
AのセルとB行を比較して、一致...
-
エクセル マクロで数値が変っ...
-
エクセル 上下で列幅を変えるには
-
excelのデータで色つき行の抽出...
-
Excel グラフのプロットからデ...
-
エクセル2016で時間を入力して...
-
VBAで色の付いているセルの行削除
-
特定の文字がある行以外を削除...
-
連続データが入った行の一番右...
-
エクセルVBA 最終行を選んで並...
-
エクセルのセルに指定画像(.jpg...
-
エクセルで昨日までの日付デー...
-
エクセルマクロで偶数行(又は...
-
A1に入力された文字列と同じ文...
おすすめ情報
ゴールデンウィーク中にありがとうございます。
そうか、”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初心者で申し訳ありません