[已解决]EXCEL用VBA数组提取到F列

laoau138

EXCEL用VBA数组提取到F列

最佳答案

月排行榜 / 总排行榜

周义坤

2017-5-25 12:00

1. Sub ek_sky()
   
2. Dim arr As Variant, brr As Variant
   
3. Dim i As Long, j As Long
   
4.   arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
   
5.   ReDim brr(1 To UBound(arr), 1 To 1)
   
6.     For i = 1 To UBound(arr) Step Range("E1")
   
7.        j = j + 1
   
8.        brr(j, 1) = arr(i, 1)
   
9.     Next i
   
10. Range("f1").Resize(j) = brr
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

zsl_32

...................

327718098

Sub text()
arr = Range("a1").CurrentRegion
For s = 1 To UBound(arr) Step [e1].Value
If [f1].Value = "" Then
[f65000].End(3).Value = arr(s, 1)
Else
[f65000].End(3).Offset(1, 0).Value = arr(s, 1)
End If
Next
End Sub

周义坤

1. Sub ek_sky()
   
2. Dim arr As Variant, brr As Variant
   
3. Dim i As Long, j As Long
   
4.   arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
   
5.   ReDim brr(1 To UBound(arr), 1 To 1)
   
6.     For i = 1 To UBound(arr) Step Range("E1")
   
7.        j = j + 1
   
8.        brr(j, 1) = arr(i, 1)
   
9.     Next i
   
10. Range("f1").Resize(j) = brr
    
11. End Sub
    

复制代码

laoau138

论坛有好多高手

laoau138

zsl_32 发表于 2017-5-25 10:34
...................

当E1=1时，F列结果应全部显示A列数字

laoau138

327718098 发表于 2017-5-25 10:57
Sub text()
arr = Range("a1").CurrentRegion
For s = 1 To UBound(arr) Step [e1].Value

结果正确但速度有点慢

laoau138

周义坤 发表于 2017-5-25 12:00

果然是高手