VBA 如何用vlookup反向查找

您的账户已欠费

huang1314wei 发表于 2017-5-22 17:30
B2输入公式下拉，其它的依此类推

谢谢您的再次回复，我是要用VBA编程来实现，就是worksheets("sheet2").cells(a,2)=WorksheetFunction.vlookup（或其他Excel函数-----）的这种，可以吗，再次感谢。

huang1314wei

您的账户已欠费 发表于 2017-5-23 08:54
谢谢您的再次回复，我是要用VBA编程来实现，就是worksheets("sheet2").cells(a,2)=WorksheetFunction.vlo ...

VBA我会，但是就你这个问题，用函数更方便，不是什么类型的问题都要用VBA

您的账户已欠费

huang1314wei 发表于 2017-5-23 09:29
VBA我会，但是就你这个问题，用函数更方便，不是什么类型的问题都要用VBA

谢谢您的回复，因为这个问题只是我要实现功能所编的VBA程序的其中一个，而且今后会长期当做固定的操作模式使用，而且在这个操作中使用函数起不到简化操作的作用，再次感谢您。

您的账户已欠费

自己捣鼓出来了，感谢大家提示，
worksheets("sheet2").cells(a,2)=WorksheetFunction.Index(Columns("u:u"), WorksheetFunction.Match(Worksheets("sheet2").Cells(a, 3), Columns("y:y"), 0))

您的账户已欠费

自己捣鼓出来了，非常感谢大家的提示。worksheets("sheet2").cells(a,2)=WorksheetFunction.WorksheetFunction.Index(Columns("a:a"), WorksheetFunction.Match(Worksheets("sheet2").Cells(a, 3), Columns("y:y"), 0))

jjmysjg

能上个完整的代码吗，学习一下。谢谢

您的账户已欠费

jjmysjg 发表于 2017-5-23 15:49
能上个完整的代码吗，学习一下。谢谢

1. Private Sub CommandButton21_Click()
   
2. 
   
3. Worksheets("sheet2").Activate
   
4. 
   
5. For a = 2 To 7
   
6. Worksheets("sheet2").Cells(a, 2) = WorksheetFunction.SumIf(Columns("y:y"), Worksheets("sheet2").Cells(a, 1), Columns("m:m"))
   
7. Worksheets("sheet2").Cells(a, 3) = WorksheetFunction.Index(Columns("a:a"), WorksheetFunction.Match(Worksheets("sheet2").Cells(a, 1), Columns("y:y"), 0))
   
8. Worksheets("sheet2").Cells(a, 4) = WorksheetFunction.Index(Columns("u:u"), WorksheetFunction.Match(Worksheets("sheet2").Cells(a, 1), Columns("y:y"), 0))
   
9. Next
   
10. End Sub
    

复制代码

您的账户已欠费

里面还有个sumif的使用哦

jjmysjg

太谢谢了，一会上机看看

geminibob

刚刚需要这个，谢谢！