1

我有一个子程序，它为特定位置调用另一个子程序并创建数据透视表。我刚刚意识到，如果我的原始数据中没有特定位置的数据，宏就会崩溃。我想设置一些 If then 语句，这样它就不会尝试运行特定的 Call 语句，除非该位置存在。这是子程序：

Sub EachLocationPivot()

    Call LocationPivot("Barker Library")
    Call LocationPivot("Dewey Library")
    Call LocationPivot("Hayden Library")
    Call LocationPivot("Music Library")
    Call LocationPivot("Rotch Library")

    End Sub

位置名称信息可以在名为“原始数据”的工作表上的 EF4:EF500 范围内找到。因此，如果该范围内不存在“音乐库”位置，我不希望 Call LocationPivot("Music Library") 行运行。然后它应该进入下一个呼叫线路并执行相同的测试，但针对该位置名称。

4

1 回答 1

0

这非常接近您的需要。 c可能应该是一个变种...

With Worksheets("Raw Data").Range("EF4:EF500")
    Set c = .Find("Barker Library")
    If Not c Is Nothing Then
        Call LocationPivot("Barker Library")
    End If
End With
于 2013-08-21T22:08:27.563 回答