UC知道请高手指导一个excel宏
来源：百度知道 编辑：UC知道 时间：2024/05/31 03:07:22
要求：
1、背景：现在有一个工作表，里面有若干行数据，比如可能是920行，可能是1150行，也可能是其他数量的行数
2、宏的要求：我需要运行宏后，这个表里从第3行开始(永远保留第1、第2行)每删除4行留一行：留第3行、第8行、第13行……，第4、5、6、7、9、10、11、12行依次类推等行就删掉了，最后得到的效果是原来的第3行、第8行、第13行……是一行行紧靠在一起的中间不留空行，当然最初的第1行和第2行也都还在他们上面
3、备注：这个宏是需要在任何一个工作表名下都能运行，谢谢
1、背景：现在有一个工作表，里面有若干行数据，比如可能是920行，可能是1150行，也可能是其他数量的行数
2、宏的要求：我需要运行宏后，这个表里从第3行开始(永远保留第1、第2行)每删除4行留一行：留第3行、第8行、第13行……，第4、5、6、7、9、10、11、12行依次类推等行就删掉了，最后得到的效果是原来的第3行、第8行、第13行……是一行行紧靠在一起的中间不留空行，当然最初的第1行和第2行也都还在他们上面
3、备注：这个宏是需要在任何一个工作表名下都能运行，谢谢
试一下这个宏:
Sub Macro1()
Range("Z2").Select
ActiveCell.FormulaR1C1 = "=MOD(ROW(R[1]C[-25]),5)<>3"
Range("A2:Y10000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("Z1:Z2"), Unique:=False
Rows("3:10000").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Delete Shift:=xlUp
ActiveSheet.ShowAllData
Range("Z2").Select
Selection.ClearContents
Range("A3").Select
End Sub