[已解决]每删除10行隔100行

ymq123

1、编写代码
2、在工作表4，每删除10行隔100行

最佳答案

月排行榜 / 总排行榜

qh8600

2014-12-15 15:19

每删除10行隔100行.rar (35.51 KB, 下载次数: 7)

2014-12-15 15:19 上传

点击文件名下载附件
楼主试试

跳转到最佳答案楼层

Excel学徒123

是隔100行删除10行？

qh8600

1. Private Sub 删除指定行_Click()
   
2.     Dim ar, br, i As Long, j As Long, s As Long
   
3.     ar = Sheets("4").UsedRange
   
4.     ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
   
5.     For i = 1 To UBound(ar)
   
6.         If i Mod 110 > 10 Or i Mod 110 = 0 Then
   
7.             s = s + 1
   
8.             For j = 1 To UBound(ar, 2)
   
9.                 br(s, j) = ar(i, j)
   
10.             Next
    
11.         End If
    
12.     Next
    
13.     Sheets("4").UsedRange.ClearContents
    
14.     Sheets("4").Range("a1").Resize(s, UBound(br, 2)) = br
    
15. End Sub

复制代码

附件楼下

qh8600

每删除10行隔100行.rar (35.51 KB, 下载次数: 7)

2014-12-15 15:19 上传

点击文件名下载附件
楼主试试