[已解决]【求助】逐个判断arr里面的类型修改

xdwy

求助：
1.不要更改B列的任何数据或者格式
2.直接arr赋值=range("B1:B5")
3.如图，请求在判断arr(4,1)不是string类型时，把arr(4,1)的类型改成string类型





【型号】.rar (6.14 KB, 下载次数: 6)

2013-1-26 23:49 上传

点击文件名下载附件

谢谢达人帮助

最佳答案

月排行榜 / 总排行榜

jianwu1106

2013-1-27 05:16

Sub 按钮1_单击()
Dim arr
arr = Range("B1:B5")
For i = 2 To UBound(arr)
       arr(i, 1) = CStr(arr(i, 1))
Next i
End Sub

跳转到最佳答案楼层

jianwu1106

Sub 按钮1_单击()
Dim arr
arr = Range("B1:B5")
For i = 2 To UBound(arr)
       arr(i, 1) = CStr(arr(i, 1))
Next i
End Sub