如何运行将在不同工作表上设置值的脚本

Sub SetValuesOnDifferentWorksheets()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim ws3 As Worksheet
    
    ' 获取不同的工作表对象
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    Set ws3 = ThisWorkbook.Worksheets("Sheet3")
    
    ' 在不同工作表上设置值
    ws1.Range("A1").Value = "Value 1"
    ws2.Range("A1").Value = "Value 2"
    ws3.Range("A1").Value = "Value 3"
End Sub