Xin chỉ giúp thêm code vào đoạn code đính kèm

[hoangmai2605]

With Worksheets(1).Range("a1:du500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

- Bảng của Tôi 1 cell để thực hiện việc tìm kiếm bao gồm 4 ô liền kề nhau.
VD: giá trị 2 nó nằm trong a1 và nếu có tiếp thì trong e1, i1,... a2,e2,i2,....
- Đoạn code trên nó thực hiện find next từ ô b1, c1, .... a2,b2,c2,...
- Mong các bạn chỉ giúp thêm code để Tôi có thể find next không phải ở vị trí cell.offset(,1) mà là cell.offset(,4)
- Rất mong các bạn trả lời để Tôi học hỏi thêm và áp dụng vào công việc của mình.

 

[nghiaphuc]

With Worksheets(1).Range("a1:du500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

- Bảng của Tôi 1 cell để thực hiện việc tìm kiếm bao gồm 4 ô liền kề nhau.
VD: giá trị 2 nó nằm trong a1 và nếu có tiếp thì trong e1, i1,... a2,e2,i2,....
- Đoạn code trên nó thực hiện find next từ ô b1, c1, .... a2,b2,c2,...
- Mong các bạn chỉ giúp thêm code để Tôi có thể find next không phải ở vị trí cell.offset(,1) mà là cell.offset(,4)
- Rất mong các bạn trả lời để Tôi học hỏi thêm và áp dụng vào công việc của mình.

Bạn thử thay câu:

Set c = .FindNext(c)

bởi câu này xem sao:

Set c = .Find(2, c.offset(,4),xlValues)

 

[sealand]

Mình thấy không nhất thiết dùng Find mà dùng mảng tốc độ nhanh chán. Bạn thử code sau:

Sub tim()
Dim Cot, Dg, TB, Tam
Tam = Range("A1:DU500")
Range("A1:DU500").Interior.ColorIndex = xlNone
For Cot = 1 To 123
For Dg = 1 To 500
If Tam(Dg, Cot) <> "" Then
If Tam(Dg, Cot) = Tam(Dg, Cot + 1) Then
If Tam(Dg, Cot) = Tam(Dg, Cot + 2) Then
If Tam(Dg, Cot) = Tam(Dg, Cot + 3) Then
Cells(Dg, Cot).Resize(, 4).Interior.ColorIndex = 8
TB = TB & Cells(Dg, Cot).Resize(, 4).Address & _
"   :   " & Tam(Dg, Cot) & Chr(10)
End If: End If: End If: End If
Next Dg
Next Cot
MsgBox TB
End Sub