VBA遇到错误执行原循环

3734

收藏 2016-03-06

1	2	2
2	a	2a
3	3	9
4	4	16
5	5	25
6	6	36
7	b	7b
8	3	24
9	2	18
10	1	10

期望得到的结果是C列，但是在用vba的编写得出的结果从第三行开始就变成33/44/55/66，然后再第行就停止运行了，不知道编写的过程出现了什么问题。

Sub t()

On Error GoTo 100

Dim x As Integer

For x = 1 To 10

Cells(x, 3) = Cells(x, 1) * Cells(x, 2)

100:

Cells(x, 3) = Cells(x, 1) & Cells(x, 2)

Next x

End Sub

应该怎么写呢？我之前觉得可以用判断语句来判断程序是否出错，但是不知道怎么写这条

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复

TimeT

2016-3-6 11:38:30

你程序的的主要问题是，哪怕没有ERROR（例如第3行），程序也会去执行100行以及的命令（所以，100行及以后的命令每次都会被执行，当然会出现你不想要的结果）。可以考虑改成如下（不过我建议，在写很长很复杂的程序时，尽量少用ON ERROR这种方式处理常常会出现的情况，你这种情况，可以考虑用ISNUMERIC()函数来判断是否是数值）：

Sub t()

On Error GoTo 100

Dim x As Integer

For x = 1 To 10

Cells(x, 3) = Cells(x, 1) * Cells(x, 2)

Next x 'add this, actually it is moved from last line

Exit Sub 'add this so the program will not run 100 if there is no error

100:

Cells(x, 3) = Cells(x, 1) & Cells(x, 2)

Resume Next 'add this to go back to the line after the error

'Next x 'delete (moved above the line above 100)

End Sub