Cách thay thế tất cả các ký tự trong bảng bằng các ký tự khác
Bạn có biết rằng? Dữ liệu bạn nhận được từ các đối tác kinh doanh hoặc sau khi nhập dữ liệu chứa các ký tự không chính xác. Có thể xảy ra trường hợp dấu thập phân xuất hiện ở bất cứ nơi nào cần dùng dấu thập phân. Hoặc có thể xảy ra trường hợp dấu gạch chéo xuất hiện giữa các chữ số riêng lẻ.
Bạn có thể sử dụng lệnh REPLACE để tìm các ký tự này và thay thế chúng bằng các ký tự khác. Nhưng cần rất nhiều nỗ lực nếu bạn muốn thực hiện quá trình này thường xuyên hơn. Bạn tiết kiệm thời gian bằng cách thực hiện tác vụ bằng macro. Bạn có thể gọi lại macro này một cách nhanh chóng và dễ dàng trong tình huống tương tự trong tương lai.
Để bao gồm macro trong một sổ làm việc trống, hãy mở một sổ làm việc mới trong tất cả các phiên bản Excel bằng cách sử dụng tổ hợp phím CTRL N. Sau đó nhấn tổ hợp phím ALT F11 để hiển thị trình soạn thảo VBA. Ở đó chọn lệnh INSERT - MODULE. Sau đó nhập macro sau:
Hoán đổi các ký tự phụ ()
Khi có lỗi Tiếp tục tiếp theo
Làm mờ ô dưới dạng phạm vi
Dim tìm kiếm chuỗi dưới dạng
Thay thế mờ bằng chuỗi dưới dạng
SearchFor = "."
ReplaceBy = ","
Đối với mỗi ô trong ActiveSheet.UsedRange
Cell.Value = Application.Subsults (Cell.Value, FindFor, ReplaceBy)
Ô tiếp theo
Về lỗi GoTo 0
Kết thúc Sub
Macro thay thế dấu thập phân bằng dấu thập phân trong tất cả các ô được sử dụng trong trang tính hiện hoạt. Để gọi macro, hãy kích hoạt trang tính mong muốn, nhấn tổ hợp phím ALT F8 và chọn macro TRAO ĐỔI KÝ TỰ.
Để kiểm soát nội dung nào được tìm kiếm và thay thế, hãy điều chỉnh hai biến SUCHENNACH và REPLACE BY trong macro.
