Cách so sánh 2 chuỗi trong VBA và Macro4??? (4 người xem)

[thanlong882]

Em có 1 file excel như sau:
Chuỗi 1:1,2,AA,3,4,5,6,7,8,9
Chuỗi 2: AA
Làm thế nào để tìm đc "AA" trong chuỗi 1 mà khi thay thay đổi kích thước của chuỗi 1 tức là khi ta thêm vào cuỗi 1 các phần tử khác như "10,11,AB,13,14" nó vẫn timd chính xác đc?(thử lại bằng các thay "AA" trong chuỗi 2 bằng "AB" và thực hiện tìm kiếm trên chuỗi 1 mới thì kết quả phải đúng)
Dưới đây là file excel (Phần màu vàng là các phần tử đc thêm vào chuỗi 1 sau khi đã tìm chính xác đc "AA", ta thay "AA" thành "AB" và thực hiện)
Các bác làm giúp em bài này nhé, em cảm ơn rất nhiều!

 

[khoavu87]

Em có 1 file excel như sau:
Chuỗi 1:1,2,AA,3,4,5,6,7,8,9
Chuỗi 2: AA
Làm thế nào để tìm đc "AA" trong chuỗi 1 mà khi thay thay đổi kích thước của chuỗi 1 tức là khi ta thêm vào cuỗi 1 các phần tử khác như "10,11,AB,13,14" nó vẫn timd chính xác đc?(thử lại bằng các thay "AA" trong chuỗi 2 bằng "AB" và thực hiện tìm kiếm trên chuỗi 1 mới thì kết quả phải đúng)
Dưới đây là file excel (Phần màu vàng là các phần tử đc thêm vào chuỗi 1 sau khi đã tìm chính xác đc "AA", ta thay "AA" thành "AB" và thực hiện)
Các bác làm giúp em bài này nhé, em cảm ơn rất nhiều!

Bạn thử dùng hàm End xem thế nào?Đọc bài của bạn cũng chưa hiểu lắm. Thủ code này xem sao.

Sub loc()
Dim Rng As Range
For Each Rng In Range("a1", [a65536].End(xlUp))
If Range("b4").Value = Rng.Value Then
Rng.Activate
Else
End If
Next
End Sub

 

[thanlong882]

Xin cảm on bạn khoavu87 nhiều nha!
Bạn cho mình hỏi cũng đề bài như trên nhưng mình viết trong MACRO4.0 minh sử dụng hàm for thìa làm như thế nào nhỉ?
Thank!!!!