Question

我在运行此特定宏时遇到问题：

Sub Macro2()

    Sheets("FilteredData").Select
    Application.CutCopyMode = False
    Selection.ListObject.ListColumns(1).Delete
    Selection.ListObject.ListColumns(1).Delete
    Selection.ListObject.ListColumns(1).Delete
    Range("A1").Select
End Sub

运行此宏后，我的excel文件被冻结。宏代码有问题吗？我一直在环顾四周，但找不到这个问题的答案：（

请不要嘲笑我问这个问题。几个小时前我才开始探索宏...

Answer 1

我不确定您的代码有什么问题，如果有什么问题。但是，您可以尝试将这段代码放在适当的位置，看看它是否更好用吗？我也不认为CutCopyMode可以为false / true，我认为值必须为1或2的整数

Sub Macro2()
    Dim sh As Worksheet
    Set sh = Sheets("FilteredData")
    For i = 1 To 3
        If sh.ListObjects(1).ListColumns.Count > 1 Then
            sh.ListObjects(1).ListColumns(1).Delete
        End If
    Next i
End Sub

Excel在运行代码后显示未响应

1 个答案: