nhờ giúp về chọn nhiều Cell với giá trị cho trước (1 người xem)

[cartoon18]

- Em có đoạn code sau:

Range("B8:C18").Select
Dim j As Long
Dim Arr(), Cel, Aps
j = 0
ReDim Arr(Selection.Count, 1)
For Each Cel In Selection
    If Cel.Value = "A10" Then
                j = j + 1
        Arr(j, 1) = Cel.Address
    End If
Next
Range(Arr).Select
'Range("$B$8,$C$8,$B$16").Select

mục đích là chọn tất cả những Cell có gí trị bằng "A10". Em đã nạp địa chỉ của những Cells chứa giá trị bằng "A10" vào mảng nhưng không Select được, mong các Bác chỉ giúp. em xin cảm ơn nhiều

 

[nhapmon]

- Em có đoạn code sau:

Range("B8:C18").Select
Dim j As Long
Dim Arr(), Cel, Aps
j = 0
ReDim Arr(Selection.Count, 1)
For Each Cel In Selection
    If Cel.Value = "A10" Then
                j = j + 1
        Arr(j, 1) = Cel.Address
    End If
Next
Range(Arr).Select
'Range("$B$8,$C$8,$B$16").Select

mục đích là chọn tất cả những Cell có gí trị bằng "A10". Em đã nạp địa chỉ của những Cells chứa giá trị bằng "A10" vào mảng nhưng không Select được, mong các Bác chỉ giúp. em xin cảm ơn nhiều

Bước tiếp theo là làm cái gì?

 

[cartoon18]

Bước tiếp theo là ẩn hoặc xóa những dòng có cell = "A10", A10 ở đây e chỉ ví dụ vì thực tế làm báo cáo có khi là một dãy số hoặc một chuỗi dạng text, vì dữ liệu tương đối lớn khoảng 16.000 dòng và 8 cột nên dùng vòng lặp như thông thường để ẩn thì lâu lắm ah

 

[nhapmon]

Bước tiếp theo là ẩn hoặc xóa những dòng có cell = "A10", A10 ở đây e chỉ ví dụ vì thực tế làm báo cáo có khi là một dãy số hoặc một chuỗi dạng text

thử xem

Sub Macro2()
Dim rng As Range, arr As Variant
myvalue = InputBox(Message, Title, Default, 100, 100)
Set rng = Selection
arr = rng.Value
arr1 = rng.Value
For i = 1 To UBound(arr)
    For j = 1 To UBound(arr, 2)
        If arr(i, j) = myvalue Then arr(i, j) = ""
    Next
Next
rng = arr
rng.SpecialCells(xlCellTypeBlanks).Select
rng = arr1
End Sub

 

[cartoon18]

thử xem

Sub Macro2()
Dim rng As Range, arr As Variant
myvalue = InputBox(Message, Title, Default, 100, 100)
Set rng = Selection
arr = rng.Value
arr1 = rng.Value
For i = 1 To UBound(arr)
    For j = 1 To UBound(arr, 2)
        If arr(i, j) = myvalue Then arr(i, j) = ""
    Next
Next
rng = arr
rng.SpecialCells(xlCellTypeBlanks).Select
rng = arr1
End Sub

- cám ơn bác, để em thử chạy xem sao

 

[Vo Tinh]

mục đích là chọn tất cả những Cell có gí trị bằng "A10". Em đã nạp địa chỉ của những Cells chứa giá trị bằng "A10" vào mảng nhưng không Select được, mong các Bác chỉ giúp. em xin cảm ơn nhiều

Thử dùng hàm Join() để nối các item trong mảng Arr, sau đó đưa vào Range để Select

Range(Join(arr(), ",")).Select

Sub Macro2()
Dim j As Long
Dim arr(), Cel
Dim myRg As Range, myStr As String
Set myRg = Selection
If Selection.Count = 1 Then
    MsgBox "Chon vung truoc khi chay code nhe"
    Exit Sub
End If
    myStr = InputBox("Nhap chuoi can chon", "Input String")
For Each Cel In myRg
    If Cel.Value = myStr Then
        j = j + 1
        ReDim Preserve arr(1 To j)
        arr(j) = Cel.Address
    End If
Next
    If j Then
        Range(Join(arr(), ",")).Select
    Else
        MsgBox "Khong tim thay chuoi can chon"
    End If
End Sub