根据 OffSet 值查找文本值、偏移量、输入公式

Question

我还有另一个 VBA 问题。

1. 我在 Excel 中有一个表格，我想查找文本：“所有其他”将始终位于 B 列中，但可能不在同一行 #。

2. 找到“所有其他”单元格后，我想在 (0,1) 的下一列中输入求和公式。

3. 该公式将从 Activecell 向下 3 行到数据末尾的未知范围求和。

我收到一个错误：无效或不合格的参考。

PrintScreen：

我目前有：

Dim ws As Worksheet
Dim aOther As Range
Dim DataLastRow As Range

Set ws = ActiveSheet

Set DataLastRow = ws.Cells.Range(ws.Rows.Count, 1).End(xlUp).Rows

    Set aOther = ws.Range("B:B").Find("All Other", LookIn:=xlValues, lookat:=xlWhole)
    ActiveCell.Offset(0, 1).Formula = "=SUM(" & .Offset(3, 0) & DataLastRow & ")"

Answer 1

Dim ws As Worksheet
Dim aOther As Range
Dim DataLastRow As Long

Set ws = ActiveSheet

DataLastRow = ws.Cells(ws.Rows.Count, 3).End(xlUp).Row

    Set aOther = ws.Range("B:B").Find("All Other", LookIn:=xlValues, lookat:=xlWhole)

    If Not aOther is Nothing Then
        aOther.Offset(0, 1).Formula = "=SUM(" & aOther.Offset(3, 1).Address & ":" & ws.Cells(DataLastRow,3).Address & ")"
    Else
        MsgBox """All Other"" not found in column."
    End If