VBA Excel - 同时更新不同工作表中的一列

Question

请问如何同时更新不同工作表中的列？ 所以问题是我有多个具有相同结构的工作表，我需要用1或0更新列P 。

另一件事是我有一个删除 function 可以同时删除行。 它工作正常并同时删除行。 我可以用这个来解决我的问题吗？ 但与其删除，不如在更新过程中修改代码。

Sub del_stud()

    LRN = ThisWorkbook.Sheets("HOME").Range("K11").value
    
    For Each ws In Sheets(Array("STUDENTS_INFO", "N-Q1", "N-Q2", "N-Q3", "N-Q4", "N-D", _
    "JK-Q1", "JK-Q2", "JK-Q3", "JK-Q4", "JK-D", "SK-Q1", "SK-Q2", "SK-Q3", "SK-Q4", "SK-D", _
    "CERTIFICATION"))
    
        With ws.Cells(8, 3).CurrentRegion
            .AutoFilter 2, LRN
            .Offset(1).EntireRow.Delete
            ws.AutoFilterMode = False
        End With
    Next ws
    
    ThisWorkbook.Sheets("HOME").Range("K11").value = ""

End Sub

Answer 1

Sub UpdateAllSheets(rngAddress as String, valueToSet)

    For Each ws In Sheets(Array("STUDENTS_INFO", "N-Q1", "N-Q2", "N-Q3", "N-Q4", "N-D", _
                                "JK-Q1", "JK-Q2", "JK-Q3", "JK-Q4", "JK-D", "SK-Q1", _
                                "SK-Q2", "SK-Q3", "SK-Q4", "SK-D", "CERTIFICATION"))
        ws.range(rngAddress).value = valueToSet
    Next ws
End Sub

在每张纸上将 P5 设置为 1 的示例调用：

UpdateAllSheets "P5", 1