Excel で列番号に基づいて範囲を使用する VBA (4 つの方法)

この記事では、Range の使用方法を学習します。 VBA を使用して、列番号に基づいて Excel でさまざまなタスクを実行する .

ワークブックをダウンロード

ここから無料の練習用 Excel ワークブックをダウンロードできます。

VBA 範囲オブジェクト

VBA の Range オブジェクト Excel ワークシート内に単一のセル、複数のセル、行、列を含めることができます。

Range の階層 オブジェクトは以下のとおりです。

アプリケーション> ワークブック> ワークシート> 範囲

これは、Range を宣言する方法です VBA のオブジェクト .

Excel で列番号に基づいて範囲を使用する VBA を埋め込む 4 つの方法

このセクションでは、列番号に基づいて範囲を選択する方法について説明します 、列番号に基づいて範囲内の値を設定する方法 範囲の最後の列番号を返す方法 VBA マクロを使用して Excel で .

1. Excel で列番号に基づいて範囲を選択する VBA

列番号に基づいて範囲を選択したい場合 以下に示すようなあいまいなデータセットから Excel を使用する場合は、この記事を読み続けて解決策を得る必要があります。

範囲を選択する手順 列番号を使用して上記のデータセットから

手順:

• Alt + F11 を押します キーボードで、またはタブ Developer -> Visual Basic に移動します Visual Basic Editor を開く .

• ポップアップ コード ウィンドウで、メニュー バーから [挿入] -> [モジュール] をクリックします。 .

• 次のコードをコピーして、コード ウィンドウに貼り付けます。

Sub SetRange()
    Range(Cells(2, 3), Cells(10, 5)).Select
End Sub

ここで、

• セル(2,3) =2 行 3 列目 (セル C2 )
• セル(10,5) =10 行 5 列 (セル E10 )

コードを実行する準備ができました。

• F5 を押します キーボードまたはメニュー バーから Run -> Run Sub/UserForm を選択します . 小さな再生アイコンをクリックすることもできます サブメニュー バーでマクロを実行します。

セルの範囲 C2 から E10 まで 列番号に基づいて選択されます (下の図を参照)。

続きを読む: Excel で可変行番号を使用した VBA 範囲 (4 つの例)

2. Excel で列番号に基づいて範囲内の値を設定する VBA

前のセクションで、列番号に基づいて範囲を選択する方法を学習しました。このセクションでは、列番号に基づいて範囲内の値を設定する方法を学びます .

手順:

• 前と同じように、Visual Basic Editor を開きます 開発者から タブと挿入 モジュール コード ウィンドウで。
• コード ウィンドウで、次のコードをコピーして貼り付けます。

Sub SetValue()
    Range(Cells(2, 2), Cells(8, 4)).Value2 = "Hello!"
End Sub

ここで、

• セル (2,2) =2 行 2 列目 (セル B2 )
• セル(8,4) =8 行 4 列 (セル D8 )

コードを実行する準備ができました。

• 走る B2 のマクロとすべてのセル D8へ 「Hello!」という値を保持します。 」

続きを読む: Excel VBA:行番号と列番号で範囲を設定する (3 つの例)

類似の読み物

• Excel VBA:セル アドレスから行番号と列番号を取得する (4 つの方法)
• Excel で行番号と列番号でセルを参照する方法 (4 つの方法)
• Excel の範囲内の各セルの VBA (3 つの方法)
• Excel で列番号を文字に変換する方法 (3 つの方法)
• Excel で範囲を設定する VBA (7 つの例)

3. Excel の列番号に基づいて異なるワークシートから範囲を選択する VBA

ここでは、別のワークシートの列番号に基づいて範囲を選択する方法を学びます

その手順を以下に示します。

手順:

• 前と同じように、Visual Basic Editor を開きます 開発者から タブと挿入 モジュール コード ウィンドウで。
• コード ウィンドウで、次のコードをコピーして貼り付けます。

Sub FixedRange()
  Dim iRng As Range
  Dim iSheet As Worksheet
  Set iSheet = Worksheets("Range") 'select the worksheet name"
  With iSheet
    .Cells(1, 7).Select 'selects cell G7 on worksheet
    Set iRng = .Range(.Cells(3, 3), .Cells(7, 6))
  End With
  iRng.Select 'selects range of cells C3:F7 on worksheet
End Sub

ここで、

• セル (3,3) =3 行 3 列目 (セル C3 )
• セル(7,6) =7 行 6 列 (セル F7 )

コードを実行する準備ができました。

• 走る C3 のコードとすべてのセル F7 まで ワークシート名「Range」から 」が、列番号に基づいて選択されます (下の図を参照)。

続きを読む: Excel で列番号を文字に変換する VBA (3 つの方法)

4. Excel で範囲内の最後の列番号を返す VBA

このセクションでは、VBA について学習します。 アクティブな範囲の最後の列番号を取得する方法に関するコード

セル A1 から D10 までのデータを含む次のデータセットを考えてみましょう . 最後の列番号を抽出します リターンの範囲から ボックス、セル F5 .

そのための手順を以下に示します。

手順:

• 前と同じように、Visual Basic Editor を開きます 開発者から タブと挿入 モジュール コード ウィンドウで。
• コード ウィンドウで、次のコードをコピーして貼り付けます。

Sub ReturnLastColumnInRange()
    'declare variables
    Dim iSheet As Worksheet
    Dim iRng As Range
    Set iWS = Worksheets("Return") 'select the worksheet
    Set iRng = iWS.Range("A1:D10") 'set the range
    'return the last column number in a cell
    iWS.Range("F5") = iRng.Column + iRng.Columns.Count - 1
End Sub

コードを実行する準備ができました。

• 走る マクロを実行すると、最後の列番号 4 が得られます 、セル F5。

続きを読む: Excel で一致の列番号を返す方法 (5 つの便利な方法)

VBA セット範囲の利点

• 実装はとても簡単です。
• Range 内の引数 オブジェクトは固定されていません。したがって、必要に応じて引数の値を変更できます。
• 引数として複数の値を渡すことができます。

覚えておくべきこと

• 細胞 VBA のプロパティ 範囲の設定にも使用できます VBA で .
• オブジェクト変数は、SET によってオブジェクトの参照として設定する必要があります キーワード。

結論

この記事では、範囲の使用方法について説明しました VBA を使用して、列番号に基づいて Excel でさまざまなタスクを実行できます。 この記事があなたにとって非常に有益であることを願っています。このトピックに関する質問はお気軽にどうぞ。

関連記事

• セル値 VBA に基づいて範囲を選択する方法 (7 つの方法)
• Excel VBA 範囲を別のシートにコピー (最も簡単な 8 つの方法)
• VBA での Excel の下付き文字の範囲外エラー (5 つのソリューション)
• [修正済み!] Excel 列に文字ではなく数字がラベル付けされている
• Excel で列文字を数値チャートに変換する方法 (4 つの方法)