提取中间内容

lgzxmlg

如何将公式转化为VBA 取数.rar (12.45 KB, 下载次数: 10)

2023-4-26 21:55 上传

点击文件名下载附件

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     With Worksheets("sheet1")
   
5.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.         arr = .Range("a3:q" & r)
   
7.         For i = 1 To UBound(arr)
   
8.             arr(i, 3) = Mid(arr(i, 2), 5, 2)
   
9.             arr(i, 4) = Mid(arr(i, 2), 8, 2)
   
10.             arr(i, 5) = Mid(arr(i, 2), 11, 2)
    
11.             arr(i, 6) = Mid(arr(i, 2), 22, 2)
    
12.             arr(i, 7) = Mid(arr(i, 2), 25, 2)
    
13.             arr(i, 10) = Mid(arr(i, 9), 5, 2)
    
14.             arr(i, 11) = Mid(arr(i, 9), 8, 2)
    
15.             arr(i, 12) = Mid(arr(i, 9), 19, 2)
    
16.             arr(i, 13) = Mid(arr(i, 9), 22, 2)
    
17.             arr(i, 15) = Mid(arr(i, 14), 5, 2)
    
18.             arr(i, 16) = Mid(arr(i, 14), 16, 2)
    
19.             arr(i, 17) = Mid(arr(i, 14), 19, 2)
    
20.         Next
    
21.         .Range("a3:q" & r) = arr
    
22.     End With
    
23. End Sub
    

复制代码

chxw68

详见附件。