Question

尝试在已编译数据的Excel文档上运行代码。我在每张纸上分别运行两个宏。我无法在此工作簿中的所有工作表上运行此宏。第一个宏用于对列进行排序：

Sub Macro1()
Dim ws As WorkSheet
Range("Sort").Select
Selection.Sort Key1:=ws.Range("q66"), Order1:=xlAscending, Key2:=ws.Range("u66") _
    , Order2:=xlDescending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
    False, Orientation:=xlTopToBottom
Next WS
End Sub

第二个宏用于根据值＆＃34; Null＆＃34;：

隐藏行

Sub HideList()
Dim ws As Worksheet
Dim cell As Range

For Each cell In ws.Range("HideList")
    With cell
        .EntireRow.Hidden = _
            (Value = "Empty")
    End With
 Next ws

 End Sub

如果删除ws，它就有效。从范围，但再次只适用于单张。

Answer 1

您仍有一些范围未引用相关工作表。更新如下：

document.createElement('<SELECT MULTIPLE>')

在多个工作表中运行代码

1 个答案: