汽修大专学校有哪些:excel中怎么删除表格,按每删九行留一行 ,记录很多
来源:百度文库 编辑:神马品牌网 时间:2024/05/02 19:18:26
用宏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