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

Liên hệ QC

Người dùng đang xem chủ đề này

TrungChinhs

Thành viên tích cực
Tham gia
18/2/08
Bài viết
1,475
Được thích
2,469
Nghề nghiệp
Công chức
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 !
 

File đính kèm

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
PHP:
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
 
Upvote 0
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 à !
 
Upvote 0
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
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom