excel vba中if then语句中then后面加goto，高手们进！

显示全部楼层 · 2010-11-26 15:57:23

程序如下：tjn = 1

For tjm = 16 To 45

For tjl = 6 To 230

If Sheets("sheet1").Cells(tjl, 2) = tjx(tjn) Then

Sheets("sheet1").Cells(5, tjm) = tjx(tjn),GoTo tjlifend
Next
tjlifend:

tjm = tjm + 1

tjn = tjn + 1

Next

我想if then 的then后面同时执行Sheets("sheet1").Cells(5, tjm) = tjx(tjn),
GoTo tjlifend，但是跟在后面的话不属于IF？逗号连接报错。高手们感激不尽

千问 · 2010-11-26 15:57:23

Sheets("sheet1").Cells(5, tjm) = tjx(tjn)GoTo tjlifend分两行就行

千问 · 2010-11-26 15:57:23

If Sheets("sheet1").Cells(tjl, 2) = tjx(tjn) Then
Sheets("sheet1").Cells(5, tjm) = tjx(tjn)
GoTo tjlifendend if

千问 · 2010-11-26 15:57:23

如果执行到goto 的话就执行goto 语句