excel数值类型转换为文本

最新推荐文章于 2021-11-17 12:05:32 发布

原创最新推荐文章于 2021-11-17 12:05:32 发布 · 628 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#excel #工作

Excel 专栏收录该内容

0 篇文章

订阅专栏

本文介绍了一个VBA宏，用于将Excel工作表中的所有数值类型数据转换为文本格式，并通过Trim函数去除前后空格。

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