Nhờ các anh chị và các bạn trên diễn đàn sửa lại đoạn code xóa ký tự đặc biệt ().
Đoạn code này đã đáp ứng được yêu cầu của mình nhưng dùng For ... next nên file chạy lâu quá.
Chân thành cảm ơn.
Const sBad As String = "()"
Dim cell As Range
Dim s As String
Dim i As Long
With ActiveSheet
Application.ScreenUpdating = False
For Each cell In Range("c8:T558")
If VarType(cell.Value) = vbString Then
s = cell.Value
For i = 1 To Len(sBad)
s = Replace(s, Mid(sBad, i, 1), "")
Next i
cell.Value = Application.Trim(s)
End If
Next cell
Application.ScreenUpdating = True
End With
Đoạn code này đã đáp ứng được yêu cầu của mình nhưng dùng For ... next nên file chạy lâu quá.
Chân thành cảm ơn.
Const sBad As String = "()"
Dim cell As Range
Dim s As String
Dim i As Long
With ActiveSheet
Application.ScreenUpdating = False
For Each cell In Range("c8:T558")
If VarType(cell.Value) = vbString Then
s = cell.Value
For i = 1 To Len(sBad)
s = Replace(s, Mid(sBad, i, 1), "")
Next i
cell.Value = Application.Trim(s)
End If
Next cell
Application.ScreenUpdating = True
End With