0

此代码工作正常：

Sub test_range()
Dim Range1 As Range
Set Range1 = Sheet4.Range("B2:F6081")
End Sub

当我将范围更改为变量时，它给了我错误 1004：

Sub test_range()
Dim Range1 As Range
Set Range1 = Sheet4.Range(Cells(2, 2), Cells(6081, 6))
End Sub

我的“选择单元格”转换有什么问题？

此外，我想将它应用于 vlookup 函数：

For C = 2 To ColNumber

    C4 = C + 4
    For R = 2 To RowNumber
        Set Condition = Sheet1.Cells(R, 2)
        'MsgBox (Condition)
        Set Range1 = Sheet4.Cells(2, 2).Offset(6079, C + 3) 'B2 (row 2 column 2) : F6081 (row 6081 column 6)
        'MsgBox (Range1)
            arg1 = 5
            arg2 = False
        Sheet1.Cells(R, C4).Value = Application.WorksheetFunction.VLookup(Condition, Range1, 5, 0)
    Next R

Next C

我试图将范围修改为

Range1 = Sheet4.Cells(2, 2).Offset(6079, C + 3)

range 函数有效，但 vlookup 函数（再次）给了我错误 1004

我阅读了一些关于 vlookup 的案例以及 vlookup 的每一个暗淡结果作为变体。我也应该这样做吗？我不能把它的结果放到一个列的值上吗？

4

1 回答 1

1

Cells意思是ActiveSheet.Cells！因此，如果你的活动工作表不是Sheet4，Sheet4.Range(Cells(...就会给你一个错误！

改为使用Sheet4.Range(Sheet4.Cells。

甚至更好，使用Sheet4.Cells(2,2).Resize(6080,5)

于 2013-04-09T06:40:02.187 回答