[已解决]怎样忽略错误值或者空格（重发）

wboy

不知道怎么编辑，重新发一个帖子
假设b1：b30包含有错误值或者空行，我想忽略掉直接往下运行，麻烦老师们帮我看看这个代码怎么写
Sub c()
Dim x%
With Sheet1
For x = 1 To 30
If .Cells(x, b) = "" Then
x = x + 1
End If
  .Cells(x, d) = "=VLOOKUP(b" & x & ",h:n,5)"
Next x
End With
End Sub
提示红色部分错误'13'类型不匹配，我把(x,b)改成(x,"B")不行，改成(x,2)也不行，请大家指点一下。

最佳答案

月排行榜 / 总排行榜

mxg825

2011-10-25 00:21

1. Sub c()
   
2.     Dim x
   
3.     With Sheet1
   
4.         For x = 1 To 30
   
5.             If IsError(.Cells(x, "b")) Then GoTo 100 '另一种写法，跳转语句（如果是错误值，跳到100：语句）
   
6.             If Len(.Cells(x, "b")) = 0 Then GoTo 100
   
7.          .Cells(x, "d") = "=VLOOKUP(b" & x & ",h:n,5)"
   
8. 100:
   
9.         Next x
   
10.     End With
    
11. End Sub
    

复制代码

跳转到最佳答案楼层

爱疯

Dim x%
改成
Dim x

wboy

版主呀，能解释一下原因吗？另外我试了一下，也不行，提示错误'1004',应用程序定义或者对象定义错误。

爱疯

1. Sub c()
   
2.     Dim x
   
3.     With Sheet1
   
4.         For x = 1 To 30
   
5.             If .Cells(x, "b") = "" Then
   
6.                 x = x + 1
   
7.             End If
   
8.             .Cells(x, "d") = "=VLOOKUP(b" & x & ",h:n,5)"
   
9.         Next x
   
10.     End With
    
11. End Sub

复制代码

没有附件测试，
不知这样可以运行了吗？
如果可以，不知达到效果了吗？

wboy

还是有问题，我上传个附件，请老师再修改一下。
说明一下，我刚开始学习vba,数据都是随机拿来练习的，并非有意拿些无意义的数据来敷衍。

xpw6061

意思是b列某个单元格为空的话,相应的D列就不写公式吧,这样就很简单
Dim x
    With Sheet1
        For x = 1 To 30
            If .Cells(x, "b") <> "" Then
               
            
            .Cells(x, "d") = "=VLOOKUP(b" & x & ",h:n,5)"
            End If
        Next x
    End With

wboy

楼上的帮我再看一下，我刚才上传得有问题，改了点。
说一下我的目的，虽然我现在的测试没有实际意义，但是我希望我将来要是编写某些模块的时候，如果有空值（用if语句得到的）或者错误值，可以直接忽略过去，这样可以提高一点运行速度。

上清宫主

        For x = 1 To 30
            If Not IsError(.Cells(x, "b")) Then
            If .Cells(x, "b") <> "" Then
                你的操作
            End If
            End If
        Next x

mxg825

1. Sub c()
   
2.     Dim x
   
3.     With Sheet1
   
4.         For x = 1 To 30
   
5.             If IsError(.Cells(x, "b")) Then
   
6.             ElseIf Len(.Cells(x, "b")) = 0 Then
   
7.             Else
   
8.             .Cells(x, "d") = "=VLOOKUP(b" & x & ",h:n,5)"
   
9.             End If
   
10.         Next x
    
11.     End With
    
12. End Sub
    

复制代码

mxg825

1. Sub c()
   
2.     Dim x
   
3.     With Sheet1
   
4.         For x = 1 To 30
   
5.             If IsError(.Cells(x, "b")) Then GoTo 100 '另一种写法，跳转语句（如果是错误值，跳到100：语句）
   
6.             If Len(.Cells(x, "b")) = 0 Then GoTo 100
   
7.          .Cells(x, "d") = "=VLOOKUP(b" & x & ",h:n,5)"
   
8. 100:
   
9.         Next x
   
10.     End With
    
11. End Sub
    

复制代码