Question

关于Excel中vba代码中查询功能FOR运用问题

Sub pz_find()

Dim ws_pz As Worksheet, ws_jl As Worksheet
Set ws_pz = Worksheets("信息录入")
Set ws_jl = Worksheets("客户资料台账")
Dim i As Integer, r As Integer 'i是“信息录入”中的行号,r是“客户资料台账”中的行号
i = 6

r_end = ws_jl.Range("A65536").End(xlUp).Row
For r = 2 To r_end
If ws_jl.Cells(r, "C") = ws_pz.Range("E6") Then

'查询条件为姓名相同
ws_pz.Range("E5").Value = ws_jl.Range("B" & r).Value
ws_pz.Range("E7").Value = ws_jl.Range("D" & r).Value
ws_pz.Range("E8").Value = ws_jl.Range("E" & r).Value
ws_pz.Range("E9").Value = ws_jl.Range("F" & r).Value
ws_pz.Range("E10").Value = ws_jl.Range("G" & r).Value
ws_pz.Range("E11").Value = ws_jl.Range("H" & r).Value
ws_pz.Range("E12").Value = ws_jl.Range("I" & r).Value
ws_pz.Range("E13").Value = ws_jl.Range("J" & r).Value
ws_pz.Range("E14").Value = ws_jl.Range("K" & r).Value
ws_pz.Range("E15").Value = ws_jl.Range("L" & r).Value
ws_pz.Range("E16").Value = ws_jl.Range("M" & r).Value
ws_pz.Range("E17").Value = ws_jl.Range("N" & r).Value
ws_pz.Range("E18").Value = ws_jl.Range("O" & r).Value
i = i + 1
Else
MsgBox "未找到与输入身份证号相同的信息"
'注释：查询相同姓名下对应的数据一一调用
End If

Next
ws_pz.Activate
If i = 6 Then MsgBox "没有人员信息！"

End Sub

哪位大神帮忙看一下为什么这个代码for循环是无法循环的？（想实现通过输入身份证信息，可以查询到另一张表相关所有数据）

Answer 1

试试在前面加：
public r_end as long

追问

不行，主要我测试把for循环去掉直接给R赋值，就能进行判定，所以觉得FOR循环是哪里搞错了

追答

你将循环的内容删除，加一个简单语句显示 一下，看循环是否正常。如
for i =1 to 3
msgbox i
next

追问

哥哥，我不会写代码，这个代码是我网上档了自己改的，所以有点蒙，我就是想实现输入一个信息获取另张表的其他信息。

我查了每个函数的意思，觉得逻辑没问题，可是运行就老跳过for循环，搞了一个小时都没研究明白

为啥是1？

解决了

谢谢