如何只在一个工作表(sheet9)上运行此代码，而不是在活动的工作表上运行？

要在一个工作表(sheet9)上运行代码，而不是在活动的工作表上运行，可以使用以下方法：

1. 使用工作表对象：在VBA中，可以通过引用工作表对象来指定代码在哪个工作表上运行。首先，需要获取工作表对象，然后在代码中使用该对象来执行操作。以下是一个示例：

Sub RunOnSheet9()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet9")
    
    ' 在Sheet9上运行代码
    ws.Range("A1").Value = "Hello, World!"
End Sub

在上述示例中，通过ThisWorkbook.Sheets("Sheet9")获取了名为"Sheet9"的工作表对象，并将其赋值给变量ws。然后，可以使用ws来引用该工作表上的单元格范围，并在其中执行操作。

1. 使用工作表索引：如果工作表的名称可能会更改，可以使用工作表的索引来指定代码在哪个工作表上运行。工作表的索引是根据其在工作簿中的位置确定的，从1开始计数。以下是一个示例：

Sub RunOnSheet9()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(9)
    
    ' 在第9个工作表上运行代码
    ws.Range("A1").Value = "Hello, World!"
End Sub

在上述示例中，通过ThisWorkbook.Sheets(9)获取了工作簿中的第9个工作表对象，并将其赋值给变量ws。然后，可以使用ws来引用该工作表上的单元格范围，并在其中执行操作。

无论使用哪种方法，都可以确保代码仅在指定的工作表上运行，而不会影响其他工作表。