excel数值类型转换为文本 A例数据 Sub trimer() With Sheets("sheet1") ar = .[a1].CurrentRegion For i = 1 To UBound(ar) ar(i, 1) = trim(ar(i, 1)) Next .[a1].Resize(UBound(ar)) = ar End With End Sub 整个excel工作薄数值类型转换为文本 With Sheets("sheet1") ar = .[a1].CurrentRegion For i = 1 To UBound(ar) For j = 1 To UBound(ar, 2) ar(i, j) = Trim(ar(i, j)) Next Next .[a1].Resize(UBound(ar), UBound(ar, 2)) = ar End With