[已解决]数值转化文本,谢谢!

sx001

B列的数值或常规,如何批量转化为像A列的文本,谢谢!

数值

1

2

3

文本

01

02

03

UKCUWCtN.rar (1.45 KB, 下载次数: 18)

2009-12-22 23:35 上传

点击文件名下载附件
数值转化文本,谢谢!

最佳答案

月排行榜 / 总排行榜

amulee

2009-12-23 09:22

Sub Test()
    With Sheet1
        For i = 2 To .Range("B65536").End(xlUp).Row
            .Cells(i, 2) = "'" & Format(.Cells(i, 2), "00")
        Next i
    End With
End Sub

跳转到最佳答案楼层

梦想2008

Ａ１="0"&B1

linken_1840

自定义单元格格式

DrMNGTfr.rar (1.6 KB, 下载次数: 41)

2009-12-22 23:45 上传

点击文件名下载附件

[此贴子已经被作者于2009-12-22 23:44:51编辑过]

sx001

2楼的方法不行,3楼的好,用宏怎么完成?

xdwy81129

QUOTE:

以下是引用sx001在2009-12-23 0:09:00的发言：
2楼的方法不行,3楼的好,用宏怎么完成?

点击按钮，B2以下的所有单元格数据都添加0到A列。

VIO984yN.rar (6.13 KB, 下载次数: 23)

2009-12-23 07:04 上传

点击文件名下载附件
数值转化文本,谢谢!

amulee

Sub Test()
    With Sheet1
        For i = 2 To .Range("B65536").End(xlUp).Row
            .Cells(i, 2) = "'" & Format(.Cells(i, 2), "00")
        Next i
    End With
End Sub

sx001

谢谢楼上各位高手。谢谢！

点点的点心

[em01]宏不会，学习了

zsd5237

学习[em02][em02]

xcy

我也学习了~~谢谢