华图老师:excel中怎么删除表格，按每删九行留一行 ,记录很多

用宏VBA写一段程序

Sub Macro1()
'
' 甲子送给你的

Dim n As Integer
Dim RowCutNo As Integer
Dim s As String
Dim RowCut As String

n = 0

For n = 1 To 100 '所删除行的数量

RowCutNo = n * 9 + 1 - n
s = RowCutNo
RowCut = s + ":" + s

Rows(RowCut).Select
Selection.Delete Shift:=xlUp

Next n

End Sub

给你一个灵活运用的加载宏，这个宏的功能是选择等差的行（可以每N行选择1行），然后再加手动删除即可。
Sub SelectRange()
'按选择区域给定参数选择等差行
Dim i As Integer, XRan As Range
If Selection.Areas.Count > 1 Then
MsgBox "选择区域应为连续区域！", vbExclamation, "错误"
ElseIf Selection.Row > ActiveSheet.UsedRange.Rows.Count Then
MsgBox "选择区域应在使用区域内！", vbExclamation, "错误"
Else
Set XRan = Rows(Selection.Row)
For i = Selection.Row + Selection.Rows.Count To _
ActiveSheet.UsedRange.Rows.Count Step Selection.Rows.Count
Set XRan = Union(XRan, Rows(i))
Next
XRan.Select
End If
End Sub