我有2段宏代码，不知道怎样实现我的“一次性删除多个工作表中的奇数行”功能

jscsj

我有2段宏代码（在网上找的），不知道怎样实现我的 “一次性删除多个工作表中的奇数行” 功能？请高手帮我实现！
第1段代码是删除工作表中的奇数行
第2段代码是选择工作表的
不知道能不能通过这2段代码实现  一次性删除多个工作表中的奇数行


第1段代码如下：删除一个工作表的奇数行 的代码
　Sub DeleteRows()
　　Dim n,i As Long
　　n=Range("A65536").End(xlUp).Row
　　If n Mod 2=0 Then n=n-1
　　For i=n To 1 Step-2
　　Rows(i).Delete
　　Next

End Sub

第2段代码是 选择工作表的代码

Sub 选中奇数表()

    b =Int(Sheets.Count / 2) + Sheets.Count Mod 2: Dim i&: ReDim arr(1 To b): a =1

    'c =Round(Sheets.Count / 2 + 0.5, 0)

    For i = 1 To b:arr(i) = Worksheets(a).Name: a = a + 2

    Next

   Worksheets(arr).Select

End Sub

补充内容 (2021-1-19 13:18):
增加：清除奇数行的同时，清除奇数行的颜色，再次请教高手，附件见5楼

补充内容 (2021-1-19 13:19):
增加：清除奇数行的同时，清除奇数行的颜色，再次请教高手，附件见5楼

3190496160

Sub DeleteRows()
Application.ScreenUpdating = False
    Dim n, i As Long
    Dim sh As Worksheet
    Dim rng As Range
    For Each sh In Sheets
        n = sh.Cells(Rows.Count, 1).End(xlUp).Row
        For i = 1 To n
            If i Mod 2 <> 0 Then
                If rng Is Nothing Then
                    Set rng = sh.Rows(i)
                Else
                    Set rng = Union(rng, sh.Rows(i))
                End If
            End If
        Next i
        rng.Delete
        Set rng = Nothing
    Next sh
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

怎样一次性删除所有工作表的奇数行.rar (142.87 KB, 下载次数: 2)

2021-1-16 11:51 上传

点击文件名下载附件

jscsj

3190496160 发表于 2021-1-16 11:51
Sub DeleteRows()
Application.ScreenUpdating = False
    Dim n, i As Long

实现了我需要的若能,谢谢！！！很专业，最后还有一个OK！

jscsj

因为我的文件里，有些有颜色，所以有的还要增加清除颜色或格式的功能
就是删除奇数行的同时，清除奇数行的颜色或格式，让这一行不存在。