Question

VBA，编译错误：类型不匹配，是怎么回事？

Sub aaa()
Dim x As String
For x = 1 To 1000000
If Range("b" & "x") <> "" Then
Range("c" & "x").Value = (VLookup(Range("b" & "x"), Sheets("入库信息台账").rangs("B:O"), 3, 0))
End If
Next
End Sub

Answer 1

Range("b" & "x")这个等效于Range("bx")，用Range引用单元格时是列标与行号组合为单元格名称，"bx"显然不正确，改为 Range("b" & x) 即可，其它也同样修改
另外，rangs("B:O")有错，应为range("B:O")
还有：VLookup前还要有表函数容器对象，可简写为：application.