[已解决]这代码的含义？

adadada

For i = 2 To UBound(arr1, 1)
   For j = 1 To UBound(arr2)
     If arr1(i, 1) = arr2(j) Then GoTo ppp
     If arr1(i, 1) <> arr2(j) Then GoTo lll
lll:
    Next j
    ReDim Preserve arr2(1 To j)
    arr2(j) = arr1(i, 1)
ppp:
Next i
描红的是什么意思，lll: 和 ppp:后面还加了冒号是什么？

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2013-9-28 15:57

adadada 发表于 2013-9-28 15:39
加个冒号是什么？

GoTo语句用于实现无条件转移。使用格式为：

　　GoTo 标号

　　程序运行到此结构，会无条件转移到其后的“标号”位置，并从那时继续执行下去。GoTo语句使用时，“标号”位置必须首先在程序中定义好，否则跳转无法实现。

　　使用GoTo跳过代码块

　　VBA的GoTo Label语句将代码转移到名为“Label:”的位置，并从该点继续执行。注意：“Label:”后面的冒号是用来特指标号的符号。然而，在GoTo后的标号名后面则不需要冒号。实际上，若添加了冒号，会得到“Label not found”的错误消息。

跳转到最佳答案楼层

xhrys

描红部分是个标记，  If arr1(i, 1) <> arr2(j) Then GoTo lll意思是如果……就执行标记ll以下的代码，另一个意思类似l

我心飞翔410

GoTo ppp
ppp:      这是一个完整的语句 意思是运行到GoTo ppp  时他就跳运行ppp:  这个后面的代码

adadada

我心飞翔410 发表于 2013-9-28 15:23
GoTo ppp
ppp:      这是一个完整的语句 意思是运行到GoTo ppp  时他就跳运行ppp:  这个后面的代码

加个冒号是什么？

我心飞翔410

adadada 发表于 2013-9-28 15:39
加个冒号是什么？

GoTo语句用于实现无条件转移。使用格式为：

　　GoTo 标号

　　程序运行到此结构，会无条件转移到其后的“标号”位置，并从那时继续执行下去。GoTo语句使用时，“标号”位置必须首先在程序中定义好，否则跳转无法实现。

　　使用GoTo跳过代码块

　　VBA的GoTo Label语句将代码转移到名为“Label:”的位置，并从该点继续执行。注意：“Label:”后面的冒号是用来特指标号的符号。然而，在GoTo后的标号名后面则不需要冒号。实际上，若添加了冒号，会得到“Label not found”的错误消息。