[已解决]删除每行数字大于等于15的行

ymq123

1、工作表1中有三个或者更多个表格
2、删除各表格每行数字大于等于15个的行，结果放到工作表2内（工作表2内是删除结果和格式）

最佳答案

月排行榜 / 总排行榜

dsmch

2014-12-7 10:38

1. Sub Macro1()
   
2. Dim rng As Range, i&, j%
   
3. Sheet1.Activate
   
4. For j = 1 To 33 Step 16
   
5.     Set rng = Cells(1, j).Resize(9, 15)
   
6.     rng.Copy Sheet2.Cells(1, j)
   
7.     For i = 1 To 9
   
8.         If Application.CountA(Cells(i, j).Resize(1, 15)) = 15 Then Sheet2.Cells(i, j).Resize(1, 15) = ""
   
9.     Next
   
10. Next
    
11. End Sub

复制代码

跳转到最佳答案楼层

baksy

工作表“2”的A1单元格复制以下公式，横拉、下拉；
=IF(COUNTA(OFFSET('1'!$A1:$O1,,INT(COLUMN()/16)*16))=15,"",'1'!A1)&""

ymq123

baksy 发表于 2014-12-7 09:26
工作表“2”的A1单元格复制以下公式，横拉、下拉；
=IF(COUNTA(OFFSET('1'!$A1:$O1,,INT(COLUMN()/16)*16) ...

不要这样的，要求写出代码

dsmch

1. Sub Macro1()
   
2. Dim rng As Range, i&, j%
   
3. Sheet1.Activate
   
4. For j = 1 To 33 Step 16
   
5.     Set rng = Cells(1, j).Resize(9, 15)
   
6.     rng.Copy Sheet2.Cells(1, j)
   
7.     For i = 1 To 9
   
8.         If Application.CountA(Cells(i, j).Resize(1, 15)) = 15 Then Sheet2.Cells(i, j).Resize(1, 15) = ""
   
9.     Next
   
10. Next
    
11. End Sub

复制代码