求助：VBA 如何将Split分列提取的字符串转换成整数？

xiashuming1 · 发表于 2019-12-20 14:08

本帖最后由 xiashuming1 于 2019-12-20 14:13 编辑

问题：VBA 如何将Split分列提取的字符串转换成整数？
如表：从B列中用Split分列后得出的一组数组，返回到K:O的单元格中，但是字符，不能参与运算，请问如何得出数字(如F2:J2)？请指教（是不是还有更好的VBA程序），非常谢谢！

wbperfect · 发表于 2019-12-20 14:45

Sub 截取数据2()
Dim i As Long
Dim j As Byte
Dim arr As Variant
i = 2
Do While Cells(i, 2) <> ""
j = 11
arr = Split(Cells(i, 2), " ")
Range(Cells(i, j), Cells(i, j + 4)) = arr
i = i + 1
Loop
With Sheets("Excelhome").Range("K:O")
.Value = .Value
End With
End Sub

复制代码

xiashuming1 · 发表于 2019-12-20 15:57

wbperfect 发表于 2019-12-20 14:45

你好，谢谢你，字符串转成数字的问题是解决了，但程序运行的速度很慢，不知还有方法可以解决不，或者是改程序。

wbperfect · 发表于 2019-12-20 17:56

xiashuming1 发表于 2019-12-20 15:57
你好，谢谢你，字符串转成数字的问题是解决了，但程序运行的速度很慢，不知还有方法可以解决不，或者是改 ...

Sub 截取数据2()
Dim i As Long
Dim j As Byte
Dim arr As Variant
Dim m As Long
m = Sheets("Excelhome").[b1048576].End(xlUp).Row
For i = 2 To m
j = 11
arr = Split(Cells(i, 2), " ")
Range(Cells(i, j), Cells(i, j + 4)) = arr
Next
With Sheets("Excelhome").Range("K2", "O" & m)
.Value = .Value
End With
End Sub

复制代码

阿xia · 发表于 2020-1-21 11:19

Sub ss()
Dim r As Range, i As Long, a, b()
i = ActiveSheet.Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row
For Each r In Range(Cells(2, 2), Cells(i, 2))
a = Split(r.Value, " ")
Range(Cells(r.Row, 6), Cells(r.Row, 10)) = a
Next r
b() = Range(Cells(2, 6), Cells(i, 10))
Range(Cells(2, 6), Cells(i, 10)) = b()
End Sub

2253671050 · 发表于 2020-2-1 22:10

好像是var（a（0））

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

求助：VBA 如何将Split分列提取的字符串转换成整数？

评分

评分