去文本代码

Sub quwenben()

Dim i, j As Long

Dim na, nc As Integer

na = Selection.Areas.Count

For i = 1 To na

nc = Selection.Areas(i).Columns.Count

For j = 1 To nc

Selection.Areas(i).Columns(j).NumberFormatLocal = "G/通用格式"

Selection.Areas(i).Columns(j).Value = Selection.Areas(i).Columns(j).Value

Next j

Next i

MsgBox "清除选中区域 文本格式 完成", vbInformation, "温馨提示"

End Sub