excel VBA宏迭代

nbysray5 于 2023-03-20 发布在其他

关注(0)|答案(1)|浏览(120)

我需要在每个工作表中重复下面的简单宏;实际上，代码在同一个工作表中执行宏。2我如何修复代码？
非常感谢

Sub Macro1()
'

' Macro1 Macro
'

Dim ws As Worksheet

    For Each ws In Worksheets
        With ws
            Application.Goto Reference:="R1C1"
            Cells.Select
            Selection.UnMerge
            Columns("D:D").Select
            Selection.Delete Shift:=xlToLeft
            Columns("E:E").Select
            Selection.Delete Shift:=xlToLeft
            Application.Goto Reference:="R10C9"
            Range("J10").Select
            Range(Selection, Selection.End(xlToRight)).Select
            Range(Selection, Selection.End(xlDown)).Select
            Selection.EntireColumn.Delete
        End With
    Next ws
End Sub

excel

来源：https://stackoverflow.com/questions/75781186/vba-macro-iteration

1条答案

按热度按时间

cclgggtu1#

如果这是你真正想做的，你只需要一点接触：

Sub macro1()
' Macro1 Macro
'

Dim ws As Worksheet

    For Each ws In Worksheets
        With ws
            .Activate
            .Range("A1").Select
            .Cells.Select
            .Application.Selection.UnMerge
            .Columns("D:D").Select
            .Application.Selection.Delete Shift:=xlToLeft
            .Columns("E:E").Select
            .Application.Selection.Delete Shift:=xlToLeft
            .Application.Goto Reference:="R10C9"
            .Range("J10").Select
            .Range(Selection, Selection.End(xlToRight)).Select
            .Range(Selection, Selection.End(xlDown)).Select
            .Application.Selection.EntireColumn.Delete
        End With
    Next ws
End Sub

赞(0）回复(0）举报 2023-03-20

我来回答

excel VBA宏迭代

1条答案

相关问题

热门标签

最新问答