[已解决]求修改代码

sanfuhai

单元格底层公式造成代码错误，求修改，详情请看附件： 求改代码.rar (7.92 KB, 下载次数: 1)

2017-5-9 15:36 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-5-9 15:56

1. Sub aaa()
   
2. Dim arr, i&, n&
   
3. arr = [l2:s60]
   
4. For i = 1 To UBound(arr)
   
5.   For j = 1 To UBound(arr, 2)
   
6.     If arr(i, j) <> "" Then n = n + 1
   
7.   Next j
   
8.   If n > 1 And n <= 4 Then [z65536].End(3).Offset(1).Resize(, UBound(arr, 2)) = Application.Index(arr, i)
   
9.   n = 0
   
10. Next i
    
11. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim arr, i&, n&
   
3. arr = [l2:s60]
   
4. For i = 1 To UBound(arr)
   
5.   For j = 1 To UBound(arr, 2)
   
6.     If arr(i, j) <> "" Then n = n + 1
   
7.   Next j
   
8.   If n > 1 And n <= 4 Then [z65536].End(3).Offset(1).Resize(, UBound(arr, 2)) = Application.Index(arr, i)
   
9.   n = 0
   
10. Next i
    
11. End Sub

复制代码