[已解决]查找问题的请教

走进EXCEL

查找问题的请教，详见附件，谢谢！

最佳答案

月排行榜 / 总排行榜

豆丁

2011-3-15 13:40

1. Dim c As Range
   
2. With Sheets("Sheet1")
   
3.     For i = 3 To [b65536].End(3).Row
   
4.         Set c = .Range("a1:IV" & .[IV1].End(1).Column).Find(Cells(i, 2), , , , 1)
   
5.         If Not c Is Nothing Then
   
6.             Cells(i, "E") = .Cells(22, c.Column)
   
7.         End If
   
8.     Next
   
9. End With

复制代码

跳转到最佳答案楼层

mn860429

楼主的代码有什么问题？

走进EXCEL

回复 mn860429 的帖子

没有什么反应。

wayy

=HLOOKUP(B3,Sheet1!$1:$65536,22,)
公式就很简单，为啥要用代码呢？

豆丁

1. Dim c As Range
   
2. With Sheets("Sheet1")
   
3.     For i = 3 To [b65536].End(3).Row
   
4.         Set c = .Range("a1:IV" & .[IV1].End(1).Column).Find(Cells(i, 2), , , , 1)
   
5.         If Not c Is Nothing Then
   
6.             Cells(i, "E") = .Cells(22, c.Column)
   
7.         End If
   
8.     Next
   
9. End With

复制代码

mn860429

1. Sub 仿VLOOUP效果1()
   
2.     Dim i&, arr As Range, r1 As Range
   
3.     Application.ScreenUpdating = False
   
4.     column1 = Sheet1.Range("iv1").End(xlToLeft).Column
   
5.     Set arr = Sheet1.Range("E1", Sheet1.Cells(1, column1))
   
6.     k = 3
   
7.     Do While Cells(k, 2) <> ""
   
8.         Set r1 = arr.Find(Cells(k, 2), , , xlWhole)
   
9.         If Not r1 Is Nothing Then
   
10.             n = r1.Column
    
11.             Cells(k, 6) = Sheet1.Cells(22, n)
    
12.         End If
    
13.         k = k + 1
    
14.     Loop
    
15.     Application.ScreenUpdating = True
    
16. End Sub
    

复制代码