Làm cách nào để chọn phạm vi dựa trên giá trị ô trong một cột khác trong Excel?

Trong bài viết này, tôi sẽ nói về cách chọn phạm vi dựa trên giá trị ô trong một cột khác. Lấy ví dụ, nếu các ô hiển thị FALSE trong cột C, các ô tương đối trong cột A và cột B sẽ được chọn như hình minh họa bên dưới. Không có tính năng tích hợp nào có thể giúp bạn giải quyết công việc này, nhưng trong bài viết này, tôi có thể xử lý nó bằng mã VBA.

Chọn phạm vi dựa trên giá trị ô trong một cột khác bằng mã VBA

---

Chọn phạm vi dựa trên giá trị ô trong một cột khác bằng mã VBA

Chọn phạm vi dựa trên giá trị ô trong một cột khác bằng mã VBA

1. Bật trang tính bạn muốn sử dụng và nhấn Alt + F11 các phím để kích hoạt Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. nhấp chuột Chèn > Mô-đunrồi dán mã bên dưới vào mã mới Mô-đun cửa sổ.

VBA: Chọn phạm vi dựa trên giá trị ô

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. nhấn F5 để chạy VBA, sau đó các phạm vi đã được chọn dựa trên các giá trị trong cột C.

Chú thích: trong tập lệnh VBA, Sheet2 là tên trang tính hoạt động, C cho biết cột bạn muốn chọn dựa trên, A và 2 in ("A" & xRg.Row) .Resize (, 2) chỉ ra rằng để chọn hai cột từ cột A. Bạn có thể thay đổi các tham chiếu khi cần.

Mẹo: Nếu bạn muốn nhanh chóng chọn các ô bằng một giá trị cụ thể, hãy thử sử dụng Kutools cho Excel's Chọn các ô cụ thể tiện ích như được hiển thị trong ảnh chụp màn hình sau. Nó đầy đủ chức năng mà không giới hạn trong 30 ngày vui lòng tải xuống và dùng thử miễn phí ngay bây giờ.