[已解决]求大神帮我完善 INDEX +MATCH 代码 我有些不知道怎么错了

釜底抽薪

我写了一些 就是不知道怎么错了  VLOOKUP 也行。   

最佳答案

月排行榜 / 总排行榜

grf1973

2017-8-21 11:28

1. Sub 查找()
   
2.     On Error Resume Next
   
3.     Dim i As Integer
   
4.     For i = 2 To [a65000].End(3).Row
   
5.         For k = 5 To 7
   
6.             Sheet1.Cells(i, k) = Application.WorksheetFunction.VLookup(Sheet1.Cells(i, 1), Sheet4.Range("a:d"), k - 3, 0)
   
7.         Next
   
8.     Next i
   
9. End Sub

复制代码

跳转到最佳答案楼层

釜底抽薪

求助

nziavywu

1. Sub 查找()
   
2. 
   
3.     Dim i As Integer
   
4.     For i = 2 To [a65000].End(3).Row
   
5.         Sheet1.Cells(i, 5) = Application.WorksheetFunction.Index(Sheet4.Range("b:B"), Application.WorksheetFunction.Match(Sheet1.Cells(i, 1), Sheet4.Range("a:a"), 0))
   
6.         Sheet1.Cells(i, 6) = Application.WorksheetFunction.Index(Sheet4.Range("c:c"), Application.WorksheetFunction.Match(Sheet1.Cells(i, 1), Sheet4.Range("a:a"), 0))
   
7.         Sheet1.Cells(i, 7) = Application.WorksheetFunction.Index(Sheet4.Range("d:d"), Application.WorksheetFunction.Match(Sheet1.Cells(i, 1), Sheet4.Range("a:a"), 0))
   
8.     Next i
   
9. End Sub

复制代码

釜底抽薪

nziavywu 发表于 2017-8-20 12:47

这是错的  你直接把我写的给复制上来了，我晕

釜底抽薪

求大神指点

grf1973

你把sheet4.range....写成了 sheet4, range  当然是错了。

grf1973

1. Sub 查找()
   
2.     On Error Resume Next
   
3.     Dim i As Integer
   
4.     For i = 2 To [a65000].End(3).Row
   
5.         For k = 5 To 7
   
6.             Sheet1.Cells(i, k) = Application.WorksheetFunction.VLookup(Sheet1.Cells(i, 1), Sheet4.Range("a:d"), k - 3, 0)
   
7.         Next
   
8.     Next i
   
9. End Sub

复制代码

釜底抽薪

nziavywu 发表于 2017-8-20 12:47

感谢大神指点，是我的不细心 把你提供整错的答案当成错误的答案。