このチュートリアルでは 8 使用例 ブイビーエー を選択してください。 使用範囲 をExcelのカラムに入れます。 一般的に UsedRange プロパティは、ワークシートのデータを表すものです。 UsedRange プロパティを、すべての例について特定のデータセットで使用することができます。

練習用ワークブックをダウンロードする

練習用ワークブックはこちらからダウンロードできます。

列のUsedRangeを選択するVBAの簡単な8つの例

次の画像は、すべての例で使用するデータセットです。 このデータセットには 営業担当者 は、その 所在地 , 地域 と『。 合計金額 このデータセットでは，使用範囲は見出しを含むものとする． 従って，次のデータセットにおける使用範囲は，( B2:E15 ).

1.ExcelのVBAで列のUsedRangeを選択する

まず、データセットからすべての列を選択します。 ブイビーエー 選ぶ UsedRange このメソッドを実行する手順を見てみましょう。

STEPS

• そもそも 右クリック という名前のアクティブなシートに、' セレクト_カラム '.
• さらに、オプションの「'」を選択します。 表示コード '.

• そして、上記の操作で空白の ブイビーエー を押すと、そのワークシートのコードウィンドウが表示されます。 アルト + F11 .
• 次に、そのコードウィンドウに次のコードを入力します。

 Sub Select_Columns() Sheets("Select_Columns").Select ActiveSheet.UsedRange.Select End Sub 

• その後 実行 を押すか F5 キーを押して、コードを実行します。

• 最後に、以下の画像のような結果が得られます。 データセットから列の使用範囲が選択されていることがわかります。

2.VBAでUsedRange全体をカラムにコピーする。

2つ目の例では ブイビーエー を使うと、データセットから列の使用範囲全体をコピーできます。 一般に、この方法はデータセットから特定の領域をコピーするために使います。 この方法を実行するには、次の手順を実行する必要があります。

STEPS

• まず、アクティブなワークシートのタブにある「? コピー '.
• 次のページ 右クリック を選択し、そのタブで 表示コード '.

• を開きます。 ブイビーエー コードウィンドウを表示させる方法は、次のとおりです。 アルト + F11 をキーボードから入力します。
• そして、そのコードウィンドウに以下のコードを挿入してください。

 Sub Copy_UsedRange() ActiveSheet.UsedRange.Copy End Sub 

• さて、コードを実行するには 実行 を押すか F5 キーになります。

• また、使用した範囲の周囲に境界線が見えますが、これはこの境界線の内側にデータがコピーされたことを示しています。

続きを読む: Excel VBA: ダイナミックレンジを別のワークブックにコピーする

3.VBAでUsedRangeの列数をカウントする

3つ目の例では、データセットの列の数を数えるために、Excelの ブイビーエー 選ぶ 使用範囲 この例では、データセット内の使用した範囲に含まれるカラムの総数をメッセージボックスに返します。 このメソッドを実行するには、次の手順に従います。

STEPS

• まず、''という名前のアクティブシートを選択します。 カラム数 '.
• 2つ目は 右クリック をクリックします。 表示コード '.

• 上記のコマンドで、空白の ブイビーエー を押すと、アクティブなワークシートのコードウィンドウが表示されます。 アルト + F11 をキーボードから入力します。
• 3つ目は、その空白のコードウィンドウに次のコードを入力することです。

 Sub Count_Columns() MsgBox ActiveSheet.UsedRange.Columns.Count End Sub 

• 次に 実行 を押すか F5 キーを押して、コードを実行します。

• 最後に、メッセージボックスに結果が表示されます。 使用した範囲の列の数は 4 .

続きを読む: VBAを使ってエクセルでデータのある範囲の行数を数える方法（マクロ5個）

4.使用する範囲の最後の列の数をカウントするExcel VBA

先ほどの方法では、使用する範囲の最後の列の番号を抽出しましたが、今回の例では、ワークシート全体の使用する範囲の最後の列の番号を、以下の方法で求めます。 ブイビーエー 選ぶ UsedRange このアクションを実行するために必要な手順を見てみましょう。

STEPS

• そもそも 右クリック という名前のアクティブなシートに、' ラストコラム '.
• 次に、オプションの「」を選択します。 表示コード '.

• そこで、上記のコマンドで空白の ブイビーエー コードウィンドウを開く別の方法として アルト + F11 .
• その後、そのコードウィンドウに次のコードを挿入してください。

 Sub Column_Last() Dim Column_Last As Integer Column_Last = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column MsgBox Column_Last End Sub. 

• ここで、「」をクリックします。 実行 を押すか F5 キーを押して、コードを実行します。

• 最後に、メッセージボックスに結果が表示されます。 使用する範囲の最後のカラムは 5位 の欄は、ワークシートの

類似の読み物

• Excelで範囲内の各行に対してVBAを使用する方法
• VBAを使用してExcelのアクティブセルから範囲を選択する（3つの方法）
• Excelマクロ：ダイナミックレンジで複数列をソートする（4つの方法）

5.VBAでUsedRangeから最後の列の最後のセルを選択する。

5つ目の例では ブイビーエー 選ぶ 使用範囲 プロパティを使って、Excel シートの最後の列の最後のセルを選択します。 この例を説明するために、前回のデータセットを引き続き使用します。 では、この方法を実行する手順をご覧ください。

STEPS

• まず、''という名前のアクティブシートを選択します。 最後のセル '.
• 次のページ 右クリック を選択します。 表示コード '.

• その後、空白になる ブイビーエー のコードウィンドウを表示します。 また アルト + F11 をクリックすると、そのコードウィンドウが表示されます。
• その後、そのコードウィンドウに次のコードを入力してください。

 Sub Last_Cell_UsedRange() Dim wcol As Long Dim wrow As Long wrow = ActiveSheet.UsedRange.Rows.Count wcol = ActiveSheet.UsedRange.Columns.Count ActiveSheet.UsedRange.Selectionで選択 Selection.Cells(wrow, wcol).Select End Sub 

• さて、コードを実行するには 実行 を押すか F5 .

• 最後に、次の画像で結果を見ることができます。 最後の列の選択された最後のセルは、セル E15 .

6.エクセルVBAで選択されたUsedRangeのセル範囲を検索する。

この例では、次のように適用します。 ブイビーエー を使用して、Excel ワークシートの選択された使用範囲のセル範囲を見つけることができます。 ここでは、そのために ブイビーエー このコードでは、セル範囲と、使用する範囲内の列のアドレスが返されます。 この操作を行うには、次の手順に従います。

STEPS

• はじめに 右クリック という名前のアクティブなシートタブで、' セル範囲の検索 '.
• 次に、オプションの「'」を選択します。 表示コード '.

• を開きます。 ブイビーエー コードウィンドウを表示させる方法としては アルト + F11 .
• 3つ目は、そのコードウィンドウに次のコードを入力することです。

 Sub Find_UsedRange() MsgBox ActiveSheet.UsedRange.Address End Sub 

• 次に、コードを実行するために 実行 を押すか F5 キーになります。

• 最終的に、以下の画像のようなメッセージボックスが表示されます。

類似の読み物

• Excelで範囲内の行と列をループするVBA（5例）
• Excel VBAで範囲を配列に変換する方法(3つの方法)

7.空のセルを数えるためにVBA UsedRangeプロパティを挿入する

この例では ブイビーエー 選ぶ UsedRange プロパティを使って、Excelシート内の空のセルを数えることができます。 データセットの使用範囲に空のセルがある場合があります。 UsedRange この例を実行するための手順をみてみましょう。

STEPS

• 最初に 右クリック という名前のアクティブなシートタブで、' 空っぽの細胞 '.
• 次に、オプションの「」を選択します。 表示コード '.

• 上記の操作で、空白の ブイビーエー コードウィンドウを開く別の方法として アルト + F11 .
• そして、そのコードウィンドウに以下のコードを挿入してください。

 Sub Count_Empty_Cells() Dim wCell As Range Dim wRange As Range Dim d As Long Dim j As Long Set wRange = ActiveSheet.UsedRange For Each wCell In ActiveSheet.UsedRange d = d + 1 If IsEmpty(wCell) = True Then j = j + 1 End If Next wCell MsgBox "Total number of used cells(s)in 4 used columns is " & d & _ " and out of those " & _ j & " cell(s) is empty." End Sub 

• その後 実行 を押すか F5 キーを押して、コードを実行します。

• 最後に、メッセージボックスに結果が表示されます。 メッセージボックスには、使用した範囲内の合計セル数と空白セル数が表示されます。

8.VBAのUsedRangeでExcelの列の最初の空白セルを探す

最後の例では、Excelの ブイビーエー を選択してください。 使用範囲 プロパティを使用して、Excel ワークシートの最初の空のセルを検索します。 このメソッドは、特定の列の最初の空のセルを検索します。 空のセルは常にデータセットの使用範囲の外にあります。 したがって、使用範囲に空白または空のセルがある場合は、この方法では考慮されません。 このメソッドを実行するには、次の手順を実行してください。

STEPS

• そもそも 右クリック という名前のアクティブなシートタブで、' First_Empty '.
• さらに、オプションの「'」を選択します。 表示コード '.

• を開きます。 ブイビーエー コードウィンドウを表示します。 アルト + F11 をクリックすると、そのコードウィンドウが表示されます。
• さらに、空欄に次のコードを入力します。 ブイビーエー コードウィンドウを表示します。

 Public Sub First_Empty_Cell() ActiveSheet.Range("E" & ActiveSheet.Rows.Count) _ .End(xlUp).Offset(1, 0).Value = "FirstEmptyCell" End Sub 

• 次に、コードを実行するために 実行 を押すか F5 キーになります。

• 最後に、上記のコードで値 ' FirstEmptyCell ' をセルで E16 列の最初の空白セルです。 E の後に、データセットの使用範囲を指定します。

続きを読む: 空のセルまで範囲をループするエクセルVBA（4例）

結論

このチュートリアルでは、一言で言うと 8 を使用する例です。 ブイビーエー 選ぶ UsedRange この記事で使用した練習用ワークシートをダウンロードできます。 ご不明な点がございましたら、下のボックスにコメントをご記入ください。 できるだけ早くご返信いたします。 今後も革新的な製品をご紹介していきます。 マイクロソフトエクセル のソリューションを提供します。