使用索引引用单元格

Question

我正在努力解决可能是一个简单的问题，但谷歌并没有帮助我。

    With Worksheets("Fake").Range("A5:BE5")
    Set GrandTotal = .Find("Grand Total", LookIn:=xlValues)
    If Not GrandTotal Is Nothing Then
        GrandTotal = GrandTotal.Address
        GrandTotalColumn = Range(GrandTotal).Column
        GrandTotalColumnLetter = Split(Cells(1, GrandTotalColumn + 1).Address, "$")(1)
        Debug.Print GrandTotal
        Debug.Print GrandTotalColumn
        Debug.Print GrandTotalColumnLetter
    End If
    End With


    Cells(9, GrandTotalColumn + 1).Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-21]="""","""",IF(ISNUMBER(SEARCH(""total"",RC[-21])),"""",RC[-22]))"

    Cells(9, GrandTotalColumn + 1).Select
    Selection.Copy
    Debug.Print GrandTotalColumnLetter
    With Worksheets("Fake")
    .Range(.Cells(9, GrandTotalColumn + 1), .Cells(10000, GrandTotalColumn + 1)).Select
'ERROR HERE
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

    .Range(.Cells(9, GrandTotalColumn + 1), .Cells(10000, GrandTotalColumn + 1)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End With

但显然它不起作用...我如何引用这个..？ 我也尝试过获取“GrandTotalColumnLetter”，但我仍然不知道如何将其插入到要选择的范围中，即使我知道如何获取列号和字母..

Answer 1

试试这个。它找到“Grant Total”所在的范围对象，然后使用列属性选择它旁边的范围（右侧的 1 列）。我将 GrandTotal 保留为一个范围，因此您的测试仍然以相同的方式工作。

好的，我对其进行了编辑以包含您的新代码。 这可以将 fromula 放入第 9 行到第 10,000 行的列中 你真的不需要像那样做所有的选择、复制和粘贴，但这是你的代码。 问题是您在选择第 1 行到第 10,000 行的范围后将公式放入“活动单元格”中，它只将公式放入第 1 行，而不是第 9 行。

With Worksheets("Fake")
    Set GrandTotal = .Range("A5:BE5").Find("Grand Total", LookIn:=xlValues)
    If Not GrandTotal Is Nothing Then
        .Range(.Cells(1, GrandTotal.Column + 1), .Cells(10000, GrandTotal.Column + 1)).Select

    End If
End With


    Cells(9, GrandTotal.Column + 1).FormulaR1C1 = _
        "=IF(RC[-21]="""","""",IF(ISNUMBER(SEARCH(""total"",RC[-21])),"""",RC[-22]))"

    Cells(9, GrandTotal.Column + 1).Select
    Selection.Copy
    Debug.Print GrandTotalColumnLetter
    With Worksheets("Fake")
    .Range(.Cells(1, GrandTotal.Column + 1), .Cells(10000, GrandTotal.Column + 1)).Select
'ERROR HERE
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

    .Range(.Cells(9, GrandTotal.Column + 1), .Cells(10000, GrandTotal.Column + 1)).Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End With