Làm cách nào để tìm và thay thế văn bản sau đó giữ nguyên định dạng trong Excel?
Tìm và thay thế định dạng giữ nguyên bằng mã Macro
Tìm và thay thế định dạng giữ nguyên bằng mã Macro
Không có phương pháp nào khác nhưng mã macro có thể giúp bạn tìm và thay thế văn bản cũng như giữ nguyên định dạng.
1. nhấn Alt + F11 phím để mở Microsoft Visual Basic cho ứng dụng cửa sổ.
2. nhấp chuột Chèn > Mô-đunvà dán mã bên dưới vào tập lệnh.
VBA: Tìm và thay thế định dạng giữ nguyên
Sub CharactersReplace(Rng As Range, FindText As String, ReplaceText As String, Optional MatchCase As Boolean = False)
'UpdatebyExtendoffice20160711
Dim I As Long
Dim xLenFind As Long
Dim xLenRep As Long
Dim K As Long
Dim xValue As String
Dim M As Long
Dim xCell As Range
xLenFind = Len(FindText)
xLenRep = Len(ReplaceText)
If Not MatchCase Then M = 1
For Each xCell In Rng
If VarType(xCell) = vbString Then
xValue = xCell.Value
K = 0
For I = 1 To Len(xValue)
If StrComp(Mid$(xValue, I, xLenFind), FindText, M) = 0 Then
xCell.Characters(I + K, xLenFind).Insert ReplaceText
K = K + xLenRep - xLenFind
End If
Next
End If
Next
End Sub
Sub Test_CharactersReplace()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Call CharactersReplace(xRg, "KK", "Kutools", True)
End Sub
3. nhấn F5 , một hộp thoại bật ra để bạn chọn một dải ô để tìm và thay thế, xem ảnh chụp màn hình:
4. Bấm OK, và chuỗi cụ thể trong ô đã chọn được thay thế bằng chuỗi khác và giữ nguyên định dạng.
Mẹo: Trong mã, KK là chuỗi bạn muốn tìm và Kutools là chuỗi bạn muốn thay thế, bạn có thể thay đổi chúng khi cần.
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!