请教大家，vbat调试中出现不能获得类属性WorksheetFunction.HLookup

阳光的弯弯

Sub 应收ook()
Dim i, j, x, sh
Set sh = Sheet2
For i = 4 To 400 Step 2
     i = 4
For j = 1 To 12
    j = 63
If sh.Range("bk1") = "物业" Then
sh.Cells(i, j) = Application.WorksheetFunction.HLookup(sh.Cells(2, j), sh.Range(Cells(i, 36), Cells(i + 1, 46)), 2)
Else
sh.Cells(i, j) = Application.WorksheetFunction.HLookup(Cells(2, j), Range("AU" & i & ":BJ" & i + 1), 2)
End If
Next j
Next i
End Sub

调试中出现不能取得WorksheetFunction的hlookup属性
vba小白，请教大侠帮忙
在线等，除夕夜在线请求。

3190496160

求助务必上传附件才可能帮得到你的

阳光的弯弯

3190496160 发表于 2024-2-10 10:25
求助务必上传附件才可能帮得到你的

我已经上传附近了，请帮忙看看。

阳光的弯弯

附近已上传。目的是根据日期和对应的金额，自动引用。主要想用vba引用函数hlookup。请大侠帮忙看看

3190496160

下载附件，结合代码看了半天，实在是看不懂哟，代码明显存在逻辑性错误，
具体描述一下你的需求吧，

阳光的弯弯

3190496160 发表于 2024-2-11 08:36
下载附件，结合代码看了半天，实在是看不懂哟，代码明显存在逻辑性错误，
具体描述一下你的需求吧，

你好，是这个意思，我之前用hlookup函数，可以直接获得数据。但是那样运行很慢.我现在想先通过VBA双层循环（一层循环是A商店到H商店，一层循环是1月到12月），然后再通过i判断语句，如果单元格选择是物业，那么通过hlookup根据日期，自动引用日期对应的数据。如果是单元格选择租金，也通过hlookup根据租金日期，自动引用对应数据。我测试过不用变量，单独写具体的行数是可以的，但是通过循环和变量就不能取得worksheet function的hlookup属性.
我重新上传了代码，并且配有图片，麻烦帮忙看看，跪求感谢！

山菊花

Sub 自动生成应收数据()
    Dim i, j, sh
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row Step 2
'        i = 2
        For j = 11 To 22
'            j = 11
            If Range("j1") = "物业" Then
                Cells(i + 1, j) = Application.WorksheetFunction.HLookup(Cells(2, j), Range("B" & i & ":E" & i + 1), 2)
            Else
                Cells(i + 1, j) = Application.WorksheetFunction.HLookup(Cells(2, j), Range("F" & i & ":I" & i + 1), 2)
            End If
        Next j
    Next i
End Sub

阳光的弯弯

山菊花 发表于 2024-2-12 09:21
Sub 自动生成应收数据()
    Dim i, j, sh
    For i = 2 To Range("A" & Rows.Count).End(xlUp).Row Ste ...

首先感谢山菊花大侠的帮助，我现在附上我原来的附表，更改后还是不行，麻烦帮忙再看下，谢谢。因为原表有很多的行和列，有很多详细信息。有几十列，套上去后还是不行。还有个需求，如果遇上空格或错误值，麻烦帮我写个GOTO跳转的代码。