[已解决]vba 提取数字

yuan1987

将以“，”分割的单元格内数字用VBA提取出来，具体要求详见附件。

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-6-13 15:56

1. Sub xx()
   
2.     Dim arr, n&
   
3.     With Sheet1
   
4.         n = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.         For i = 1 To n
   
6.             arr = Split(.Cells(i, 1), ",")
   
7.             .Cells(i, 2).Resize(1, UBound(arr) + 1) = arr
   
8.         Next
   
9.     End With
   
10. End Sub

复制代码

跳转到最佳答案楼层

心正意诚身修

=TRIM(MID(SUBSTITUTE($A1,",",REPT(" ",99)),COLUMN(A1)*99-98,99))
函數解。

爱疯

Sub Click()
    Application.DisplayAlerts = False
    [a1:a2].TextToColumns Destination:=[b1], Comma:=True
End Sub

老司机带带我

1. Sub xx()
   
2.     Dim arr, n&
   
3.     With Sheet1
   
4.         n = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.         For i = 1 To n
   
6.             arr = Split(.Cells(i, 1), ",")
   
7.             .Cells(i, 2).Resize(1, UBound(arr) + 1) = arr
   
8.         Next
   
9.     End With
   
10. End Sub

复制代码

爱疯

心正意诚身修 发表于 2016-6-13 15:53
=TRIM(MID(SUBSTITUTE($A1,",",REPT(" ",99)),COLUMN(A1)*99-98,99))
函數解。

只是用VBA代码，表达分列操作。

以逗号分隔a1:a2，到b1。