[已解决]VBA用数组如何 提取等距离间隔行数数据到右面

laoau138

VBA用数组如何    提取等距离间隔行数数据到右面

最佳答案

月排行榜 / 总排行榜

老司机带带我

2017-2-25 17:37

1. Sub 提取()
   
2.     Dim arr, n&, i&, k&
   
3.     With Sheet1
   
4.         n = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.         arr = .Range("A1:C" & n)
   
6.         k = n / .[E1] + 1
   
7.         For i = n To 1 Step .[E1] * -1
   
8.             k = k - 1
   
9.             .Cells(k, 7).Resize(1, 3) = Application.Index(arr, i)
   
10.         Next
    
11.     End With
    
12. End Sub
    

复制代码

跳转到最佳答案楼层

老司机带带我

1. Sub 提取()
   
2.     Dim arr, n&, i&, k&
   
3.     With Sheet1
   
4.         n = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.         arr = .Range("A1:C" & n)
   
6.         k = n / .[E1] + 1
   
7.         For i = n To 1 Step .[E1] * -1
   
8.             k = k - 1
   
9.             .Cells(k, 7).Resize(1, 3) = Application.Index(arr, i)
   
10.         Next
    
11.     End With
    
12. End Sub
    

复制代码

laoau138

老司机带带我 发表于 2017-2-25 17:37

有几个问题

第一：有问题H列不是日期

第二:请用数组

第三:不要用index

如何搞定它

老司机带带我

无聊！！！！！！

1. Sub 提取()
   
2.     Dim arr, n&, i&, k&
   
3.     With Sheet1
   
4.         n = .Cells(.Rows.Count, 1).End(xlUp).Row
   
5.         arr = .Range("A1:C" & n)
   
6.         k = n / .[E1] + 1
   
7.         For i = n To 1 Step .[E1] * -1
   
8.             k = k - 1
   
9.             For j = 7 To 9
   
10.                 .Cells(k, j) = arr(i, j - 6)
    
11.             Next
    
12.         Next
    
13.         .Columns(8).NumberFormatLocal = "yyyy/m/d"
    
14.     End With
    
15. End Sub

复制代码

laoau138

老司机带带我 发表于 2017-2-25 17:48
无聊！！！！！！

老司机是高手