VBA遇到错误执行原循环

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

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

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

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：VBA Integer Cells Error cell excel；vba

你程序的的主要问题是，哪怕没有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

TimeT 发表于 2016-3-6 11:38
你程序的的主要问题是，哪怕没有ERROR（例如第3行），程序也会去执行100行以及的命令（所以，100行及以后的 ...

谢谢