Excelの別の列のセル値に基づいて範囲を選択するにはどうすればよいですか？

この記事では、別の列のセル値に基づいて範囲を選択する方法について説明します。 たとえば、セルの列CにFALSEが表示されている場合、列Aと列Bの相対セルは、以下のスクリーンショットのように選択されます。 このタスクを解決するのに役立つ組み込み機能はありませんが、この記事では、VBAコードで処理できます。

VBAコードで別の列のセル値に基づいて範囲を選択します

---

VBAコードで別の列のセル値に基づいて範囲を選択します

VBAコードで別の列のセル値に基づいて範囲を選択します

1.使用するシートを有効にして、を押します Altキー+ F11 を有効にするためのキー アプリケーション向け Microsoft Visual Basic 窓。

2。 クリック インセット > モジュール、次に以下のコードを新しいコードに貼り付けます モジュール 窓。

VBA：セル値に基づいて範囲を選択します

Sub SelectByCellValue()
'UpdatebyExtendoffice20161128
    Dim lastrow As Long
    Dim xRg As Range, yRg As Range
    'change Sheet1 to suit
    With ThisWorkbook.Worksheets("Sheet2")
        lastrow = .Cells(.Rows.Count, "C").End(xlUp).Row
        Application.ScreenUpdating = False
        For Each xRg In .Range("C1:C" & lastrow)
            If UCase(xRg.Text) = "FALSE" Then
                If yRg Is Nothing Then
                    Set yRg = .Range("A" & xRg.Row).Resize(, 2)
                Else
                    Set yRg = Union(yRg, .Range("A" & xRg.Row).Resize(, 2))
                End If
            End If
        Next xRg
        Application.ScreenUpdating = True
    End With

    If Not yRg Is Nothing Then yRg.Select
End Sub

3。 押す F5 キーを押してVBAを実行すると、列Cの値に基づいて範囲が選択されます。

注意：VBAスクリプトでは、Sheet2はアクティブなシート名であり、Cは選択する列を示します。 A 及び 2 in （ "A"＆xRg.Row）.Resize（、2） 列AからXNUMXつの列を選択することを示します。必要に応じて参照を変更できます。

ヒント：特定の値に等しいセルをすばやく選択する場合は、Kutools forExcelを使用してみてください。 特定のセルを選択 次のスクリーンショットに示すユーティリティ。 それは制限なしで完全な機能です 30 日々、 今すぐダウンロードして無料トライアルをお試しください。