Lấy địa chỉ trong Find and Relace ra bảng tính ? (2 người xem)

[TrungChinhs]

Khi sử dụng Find All trong Find and Relace thì bên dưới hộp thoại có thông báo các địa chỉ của dữ liệu đang tìm (ví dụ trong file đính kèm).
Nhờ các bạn viết giúp code để lấy các địa chỉ này ra bảng tính.
Thanks !

 

[Quang_Hải]

Khi sử dụng Find All trong Find and Relace thì bên dưới hộp thoại có thông báo các địa chỉ của dữ liệu đang tìm (ví dụ trong file đính kèm).
Nhờ các bạn viết giúp code để lấy các địa chỉ này ra bảng tính.
Thanks !

Anh thử đoạn code này xem sao

Sub find_all()
Dim found As Range, firstadd
Set found = ActiveSheet.UsedRange.Find("ABC", , , 1, , , False)
If Not found Is Nothing Then
   firstadd = found.Address
   Do
      Set found = ActiveSheet.UsedRange.FindNext(found)
      [A65536].End(3).Offset(1) = found.Address
   Loop Until firstadd = found.Address
End If
End Sub

 

[TrungChinhs]

Khi dữ liệu cần tìm ở trên nhiều sheet, nếu ta chọn tất cả các sheet thì trong hộp thoại Find and Replace có sẵn các địa chỉ này vì vậy Mình muốn lấy địa chỉ có sẵn trong hộp thoại này để không phải dùng vòng lặp quét từng sheet và quét từng cells Hải à !

 

[ndu96081631]

Khi dữ liệu cần tìm ở trên nhiều sheet, nếu ta chọn tất cả các sheet thì trong hộp thoại Find and Replace có sẵn các địa chỉ này vì vậy Mình muốn lấy địa chỉ có sẵn trong hộp thoại này để không phải dùng vòng lặp quét từng sheet và quét từng cells Hải à !

Anh dùng công cụ Excel thì nó như thế nhưng khi viết code thì bắt buộc anh phải dùng vòng lập
Giống như việc xóa name trên Excel 2007, rõ ràng anh có thể chọn và xóa cùng lúc toàn bộ các name nhưng nếu viết code thì anh vẫn phải For... Next