[已解决]初学小白求大佬教，写的说缺少函数和变量

starya

如题，代码如下，求大佬帮忙看一下哪里出问题了Sub tt222()
Dim x As Integer
For x = 34 To 36
If Range("d" & x) > 3500 Then
Range("e" & x) = 不合理
Else: Range("e" & x) = 合理
End If
Next x
End Sub

最佳答案

月排行榜 / 总排行榜

zjdh

2023-8-28 20:01

是你的其他宏出问题了！
Sub sheet1()
Dim x As Integer
For x = 10 To 11
Range("a" & x) = Application.VLookup(Range("b" & x), Range("d13:e16"), 2, 0)
Next x
End Sub
宏名称不可用工作表名称！！改成其他的名称，就没问题了。

跳转到最佳答案楼层

zjdh

Sub tt222()
    Dim x As Integer
    For x = 34 To 36
        If Range("d" & x) > 3500 Then
            Range("e" & x) = "不合理"
        Else: Range("e" & x) = "合理"
        End If
    Next x
End Sub

starya

zjdh 发表于 2023-8-26 17:47
Sub tt222()
    Dim x As Integer
    For x = 34 To 36

老师好，我按你的方法改了 还是跳这个东东

zjdh

starya 发表于 2023-8-28 11:33
老师好，我按你的方法改了 还是跳这个东东

这么简单的宏，不可能啊，你将你的文件上传，看看啥问题。

starya

zjdh 发表于 2023-8-28 13:19
这么简单的宏，不可能啊，你将你的文件上传，看看啥问题。

上传啦

zjdh

是你的其他宏出问题了！
Sub sheet1()
Dim x As Integer
For x = 10 To 11
Range("a" & x) = Application.VLookup(Range("b" & x), Range("d13:e16"), 2, 0)
Next x
End Sub
宏名称不可用工作表名称！！改成其他的名称，就没问题了。

starya

zjdh 发表于 2023-8-28 20:01
是你的其他宏出问题了！
Sub sheet1()
Dim x As Integer

谢谢老师，好了呀，太神奇了