求助：如何用VBA将整列数值替换为文本

阿哩木

求助：如何用VBA将整列数值替换为文本

静听溪流

先将目标列单元格格式设置成文本
然后用循环通过format函数设置成三位数写入

3190496160

公式可以看看text函数，用vba代码，可以看看format函数

阿哩木

3190496160 发表于 2023-3-2 10:43
公式可以看看text函数，用vba代码，可以看看format函数

大佬可以帮忙写下代码吗，VBA小白一个 不会搞

阿哩木

静听溪流 发表于 2023-3-2 10:42
先将目标列单元格格式设置成文本
然后用循环通过format函数设置成三位数写入

可以帮忙写下代码吗,小白一个不会弄

ykcbf1100

附件请参考。。。

ovxyz

静听溪流

阿哩木 发表于 2023-3-2 10:48
可以帮忙写下代码吗,小白一个不会弄

6楼、7楼已经写好了

ly284257

学习一下

Sub test()
Dim arr()
arr = Range("A1:B" & Range("a65536").End(xlUp).Row)

For i = 2 To UBound(arr())
arr(i, 2) = Application.Text(arr(i, 1), "000")
Next

Range("D:D").NumberFormatLocal = "@"
Range("D1").Resize(UBound(arr)) = Application.Index(arr, 0, 2) '如果需要到c列就把range("D1")改为range("C1")

End Sub