循环查找引用求助 VBA

yhj5055244 · 发表于 2018-8-11 11:34

求助各位大神，想在sheet1查找对应的电话号码，然后在对应号码后录入sheet2黄色列到sheet1中去

media888 · 发表于 2018-8-11 12:15

本帖最后由 media888 于 2018-8-11 12:25 编辑

文件打不开
参考代码
Private Sub CommandButton1_Click()
p = Empty
   Dim i%, j%, k%, rng As Range
   i = ThisWorkbook.Sheets("XXX").Cells(Rows.Count, 1).End(xlUp).Row
   Sheet4.Range("a4:a" & i).Interior.ColorIndex = xlNone
   For Each rng In Range("a4:a" & i)
      If InStr(UCase(rng), UCase(Sheet4.TextBox1)) Then
         rng.Interior.ColorIndex = 6
         If p = Empty Then
         p = rng.Address
         End If
      End If
   Next
   If p = "" Then Exit Sub '加入的判断代码
Range(p).Activate

End Sub

iwangyi · 发表于 2018-8-11 13:04

附件环-------------

iwangyi · 发表于 2018-8-11 13:05

更正下，楼主附件环了，打不开

yhj5055244 · 发表于 2018-8-11 17:16

谢谢，我再上传一下，！

yhj5055244 · 发表于 2018-8-11 17:30

循环查找引用求助 VBA

yhj5055244 · 发表于 2018-10-14 15:51

media888 发表于 2018-8-11 12:15
文件打不开
参考代码
Private Sub CommandButton1_Click()

附件现在可以打开了，您帮忙看一下，谢谢！

		自动登录	找回密码
密码			免费注册

[求助] 循环查找引用求助 VBA