VBA如何将单元格的值设置为另一张图纸列中的下一个单元格

我在A38中有一个值，我想要一个按钮，当单击该按钮时，将在我的工作表“项目数据库”上执行Hlookup操作，并在A38中的值后返回列中的下一个值

基本上是一个“下一项”按钮

我不知道如何告诉它获取单元格的值，进行查找并插入查找的值（对于列中的下一个值）

目前我把它指向A36，这是我测试hlookup的一种方式。当我把它设置为38时，我没有得到一个错误，但是它的单元格是空的（在删除了其中的任何值之后）

任何建议都将不胜感激

Private Sub CommandButton1_Click()
With Range("A38")
.Value = "=HLOOKUP(A36,'Item Database'!A2:A100000, 2,FALSE)"
.Value = .Value
With Range("B38")
.Value = "=VLOOKUP(A38,Item_ID,5,FALSE)"
.Value = .Value
End With
End With
End Sub

试试这个代码

Private Sub CommandButton1_Click()
    Range("A38").Value = [HLOOKUP(A38,'Item Database'!A2:A100000,2,FALSE)]
    Range("B38").Value = [VLOOKUP(A38,Item_ID,5,FALSE)]
End Sub

---

完美，更好的方式@悉达多：我敢肯定，你会采取更短的方法

[A38]=[HLOOKUP（A38，“项目数据库”！A:A，2,0）]

！；-）