Question

Private Sub CommandButton1_Click()

Private Sub CommandButton1_Click()

v = 3
100:
If Sheet1.Cells(v, 4) = "" And Sheet1.Cells(v, 1) <> "" Then
Sheet1.Cells(v, 8) = Sheet1.Cells(v, 2)
Sheet1.Cells(v, 9) = Sheet1.Cells(v, 3)
v = v + 1
GoTo 100
End If

新手学习，搞不明白，请说明每行的意思

Answer 1

1.这是Excel的VBA程序。功能是将工作表Sheet1中的第2和第3列的数据复制到第8和第9列，且从第三行开始，并要求第1列不能空，第4列必须空。
2.Private Sub...End Sub：定义过程。你程序中少了“End Sub”，放在最后一句。
3.if...Then...End if：从第3行开始判断第1列是否为空（同时第4列为空），若不为空，则将第2列数据-->第8列，第3列-->第9列；若为空则结束。