各位老师帮忙看看这段代码哪错了，谢谢！

skyzeng2014

我想将vlookup的应用使用VBA编写，但在引用sheet1数据时感觉有点懵，麻烦各位大虾赐教！

Private Sub worksheets()
Dim i, j As Integer
  i = Cells("c65536").End(xlUp).Row + 1
  j = Cells("b65536").End(xlUp).Row + 1
  If j = "" Then
     i = ""
  End If
  If j <> "" Then
     i = Application.WorksheetFunction.VLookup(j, Sheets("基础数据").Range("c2:o65536"), 3, False)
   End If
  
End Sub

yiyiyicz

问错地方了，最好发到VBA板块

你的代码的确有点奇怪

1. Private Sub worksheets() ‘worksheets是保留字，最好不要用作sub名
   
2. Dim i, j As Integer ’如果要声明变量，这样写只是将变量j声明为integer，而i并没有被声明为integer
   
3.   i = Cells("c65536").End(xlUp).Row + 1 ‘不知道cells是不是这样定义的，一般应该是cells(行，列)。用range("c65536")则没有问题
   
4.   j = Cells("b65536").End(xlUp).Row + 1
   
5.   If j = "" Then ’这之后的代码不太合理
   
6.      i = ""
   
7.   End If
   
8.   If j <> "" Then
   
9.      i = Application.WorksheetFunction.VLookup(j, Sheets("基础数据").Range("c2:o65536"), 3, False)
   
10.    End If
    
11.   
    
12. End Sub

复制代码

yiyiyicz

If j = "" Then
     i = ""
  End If
  If j <> "" Then
     i = Application.WorksheetFunction.VLookup(j, Sheets("基础数据").Range("c2:o65536"), 3, False)
   End If
可以写成
if j="" then
i=""
else
i=Application.WorksheetFunction.VLookup(j, Sheets("基础数据").Range("c2:o65536"), 3, False)
end if
这样更好
.VLookup(j, Sheets("基础数据").Range("c2:o65536"), 3, False) 对不对啊，对函数不太熟悉

domenst

支持2楼的观点，ii = Cells("c65536").End(xlUp).Row + 1 ‘不知道cells是不是这样定义的，一般应该是cells(行，列)。用range("c65536")则没有问题。