[已解决]VBA mid函数截取某列单元格第9位到第13位

bjzhangkai

我想在VBA中实现截取某列单元格的第9位到第13位
vba.mid(range("a1:a1000"),9,4)
请问可以用列或着数组做mid的参数吗，谢谢高手指点！

最佳答案

月排行榜 / 总排行榜

wayy

2011-12-19 13:31

1. Private Sub CommandButton1_Click()
   
2. Dim arr, arr2, t
   
3. Dim i As Long
   
4. t = Timer
   
5. arr = Range("A1", [A65536].End(xlUp))
   
6. ReDim arr2(1 To UBound(arr), 1 To 1)
   
7. For i = 1 To UBound(arr)
   
8.   arr2(i, 1) = Mid(arr(i, 1), 9, 4)
   
9. Next
   
10. [B1].Resize(i - 1, 1) = arr2
    
11. MsgBox Timer - t
    
12. End Sub

复制代码

我的电脑在数据2万条的时候运行时间是0.047秒。

跳转到最佳答案楼层

wayy

可以直接使用VBA数据循环得到，很快的

bjzhangkai

我有几万行数据的，用循环肯定不行的

Select

同意2楼
楼主应该上传附件，也许。。。已解决了

wayy

1. Private Sub CommandButton1_Click()
   
2. Dim arr, arr2, t
   
3. Dim i As Long
   
4. t = Timer
   
5. arr = Range("A1", [A65536].End(xlUp))
   
6. ReDim arr2(1 To UBound(arr), 1 To 1)
   
7. For i = 1 To UBound(arr)
   
8.   arr2(i, 1) = Mid(arr(i, 1), 9, 4)
   
9. Next
   
10. [B1].Resize(i - 1, 1) = arr2
    
11. MsgBox Timer - t
    
12. End Sub

复制代码

我的电脑在数据2万条的时候运行时间是0.047秒。