将Excel VBA宏从活动工作表转换为无焦点的所有工作表

我目前正在使用一个宏，它根据列“a”中是否有数据自动填充公式。宏工作正常，仅在当前选择工作表（即用户所在的工作表）上

有人能帮我将工作簿中的所有工作表转换为工作表吗

公式如下：

Sub FillForms()
Dim WKS As Worksheet

For Each WKS In Worksheets

    Select Case UCase(WKS.Name)
    Case "Sheet1"
        Range("J3:M3").AutoFill Destination:=Range("J3:M" & Cells(Rows.Count, "A").End(xlUp).Row)
    Case "Sheet2"
        Range("J3:M3").AutoFill Destination:=Range("J3:M" & Cells(Rows.Count, "A").End(xlUp).Row)
    Case "Sheet3"
        Range("J3:M3").AutoFill Destination:=Range("J3:M" & Cells(Rows.Count, "A").End(xlUp).Row)
    Case "Sheet4"
        Range("J3:M3").AutoFill Destination:=Range("J3:M" & Cells(Rows.Count, "A").End(xlUp).Row)
    Case "Sheet5"
        Range("J3:M3").AutoFill Destination:=Range("J3:M" & Cells(Rows.Count, "A").End(xlUp).Row)
    Case "Sheet6"
        Range("J3:K3").AutoFill Destination:=Range("J3:K" & Cells(Rows.Count, "A").End(xlUp).Row)
    Case "[Day 3]"
        Range("J3:K3").AutoFill Destination:=Range("J3:K" & Cells(Rows.Count, "A").End(xlUp).Row)
    Case "[Day 5]"
        Range("J3:K3").AutoFill Destination:=Range("J3:K" & Cells(Rows.Count, "A").End(xlUp).Row)
    Case "[Day 10]"
        Range("J3:K3").AutoFill Destination:=Range("J3:K" & Cells(Rows.Count, "A").End(xlUp).Row)
    Case "[Day 15]"
        Range("J3:K3").AutoFill Destination:=Range("J3:K" & Cells(Rows.Count, "A").End(xlUp).Row)
    Case "[Day 20]"
        Range("J3:K3").AutoFill Destination:=Range("J3:K" & Cells(Rows.Count, "A").End(xlUp).Row)
    Case Else
         'Code for other sheets
    End Select
Next WKS
End Sub

谢谢

怎么样

WKS.Range("J3:M3").AutoFill ...

而不是

Range("J3:M3").AutoFill ...

这样可以指定范围在指定的工作表中，而不是在活动工作表中

---

稍后编辑：请注意，目标参数的引用可能也需要更新到指定的工作表，而不是活动的工作表。

所需的工作量很小，因此不是代码编写服务。请参阅帮助中心！为什么是UCase？案件表1将永远无法到达…@mehow没有必要投否决票。OP试图编写一些代码，它以一种方式工作，但并不像预期的那样，他们已经请求帮助解释为什么它不工作。我认为这是一个很好的问题例子。OP不是要我们为他们写，他们是在寻求帮助，哪个CTS链接提供了一个很好的示例，其中他/她没有为其编写完整的代码them@SilverShotBee我没有投反对票，只是投了结束票，因为不清楚OP向我提出了什么要求。他要求在当前代码的基础上编写额外的代码，不费吹灰之力。这是一种更好的方法+1.