[已解决]更快更好的做

mmc998

Book11.rar (280.8 KB, 下载次数: 59)

2014-2-28 23:47 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-3-1 09:49

1. Sub Macro1()
   
2. Dim arr, brr, i&, j&
   
3. arr = Sheet1.[e2].CurrentRegion.Offset(, -1)
   
4. ReDim brr(1 To UBound(arr) - 2, 1 To UBound(arr, 2))
   
5. For i = 4 To UBound(arr)
   
6.     For j = 2 To UBound(arr, 2)
   
7.         If arr(i, j) = 0 Then brr(i - 3, j - 1) = arr(i, j - 1)
   
8.     Next
   
9. Next
   
10. Range("e5").Resize(UBound(brr), UBound(brr, 2)) = brr
    
11. End Sub
    

复制代码

book11

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, i&, j&
   
3. arr = Sheet1.[e2].CurrentRegion.Offset(, -1)
   
4. ReDim brr(1 To UBound(arr) - 2, 1 To UBound(arr, 2))
   
5. For i = 4 To UBound(arr)
   
6.     For j = 2 To UBound(arr, 2)
   
7.         If arr(i, j) = 0 Then brr(i - 3, j - 1) = arr(i, j - 1)
   
8.     Next
   
9. Next
   
10. Range("e5").Resize(UBound(brr), UBound(brr, 2)) = brr
    
11. End Sub
    

复制代码

book11

mmc998

dsmch 发表于 2014-3-1 09:49
book11

最后一排数据没有显示出来

ilay

！！！！！！！！！