excel - 这段代码中两个点的含义是什么？

Question

我想了解excel vba中两个点的用法。

Sub loadparts(a)    
    Sheets("Sheet1").Select

    Dim lists()    
    b = 2    
    'what is the meaning of two dots.

x:
    If Cells(b, a) <> "" Then   
        ReDim Preserve lists(1 To b - 1)   
        lists(b - 1) = Sheets(b, a)

        b = b - 1: GoTo x
    End If

    UserForm1.ListBox1.List = lists()  
End Sub

Answer 1

这两个点称为冒号。并且冒号在 Visual Basic for Applications 中有两个功能

定义标签:在您的示例中 x是一个标签。您可以使用标签跳转到代码的特定部分，使用 goto陈述。在您的示例中，这发生在这一行:

b = b - 1: GoTo x

你可以用它来单独的说明 (偶然发生在同一行)。在 VBA 中，我们通常用换行符分隔语句，但也可以使用冒号。虽然这通常不太容易阅读。再次抓取同一行代码:

b = b - 1: GoTo x

is equivalent to

b = b - 1
GoTo x