[已解决]求助：如何批量转换单元格中的数据类型？

ljy00879 · 发表于 2012-8-19 16:30

这个问题很简单，却做不出来，见附图：

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-8-19 16:32

本帖最后由 hwc2ycy 于 2012-8-19 17:15 编辑

分列，一次搞定。
方法都是一样的，最后数据格式注意选择就行了。
分列.gif

跳转到最佳答案楼层

hwc2ycy · 发表于 2012-8-19 16:32

这个最佳答案由 hwc2ycy 给出，感谢 hwc2ycy 的回答。

单击隐藏图章

本帖最后由 hwc2ycy 于 2012-8-19 17:15 编辑

分列，一次搞定。
方法都是一样的，最后数据格式注意选择就行了。
分列.gif

JLxiangwei · 发表于 2012-8-19 16:32

本帖最后由 JLxiangwei 于 2012-8-19 16:37 编辑

分列
转换108.gif

L0VEEP · 发表于 2012-8-19 16:33

试试这样
=A1&""

=B1+0

hwc2ycy · 发表于 2012-8-19 16:33

那么的帅 · 发表于 2012-8-19 16:35

1 数值转文本，不能通过设置单元格格式完成。因为设置单元格格式，只是改变了显示格式，而不能改变单元格的实际内容
数值转文本，可以用分列完成，也就是分列的步骤3 之 3 ，选择列数据格式为文本，就可以了

2 至于文本转数值，就简单多了，选中这些数据，选择绿色三角符号的叹号，选择里面的“转换为数字”

数值转文本.gif

qqyyh · 发表于 2012-8-19 16:46

是简单,但还是要学习的.谢谢

周义坤 · 发表于 2012-8-19 16:46

Sub ek_sky()
Dim arr, arb, i&, j&
arr = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value
arb = VBA.InputBox("请输入格式,1为文本，2为数值")
If arb = 1 Then
For i = 1 To UBound(arr)
arr(i, 1) = "'" & arr(i, 1)
Next i
ElseIf arb = 2 Then
For j = 1 To UBound(arr)
arr(j, 1) = Val(arr(j, 1))
Next j
Else
End If
Range("A2").Resize(UBound(arr)) = arr
End Sub

复制代码

周义坤 · 发表于 2012-8-19 16:47

请看附件：

274.zip (7.95 KB, 下载次数: 5)

qqyyh · 发表于 2012-8-19 16:56

坤兄的点子真不错,向你学习 .

		自动登录	找回密码
密码			注册

[已解决]求助：如何批量转换单元格中的数据类型？

相关帖子