Question

在Excel中，我有column M个完整的数据，然后在数据底部有一个标题。

我需要将所有column M减去该标头，然后将其放在该标头下的一列中。

我是宏的新手，并且一直试图弄清楚它不占优势。这是我尝试过的：

With Over65
Over65M = Over65.Range("M" & .Rows.Count).End(xlUp).Offset(-1, 0)


Over65.Range("M5:M1000").Find("").Formula = "=sum(M5:M" & Over65M & ")"
End With

请帮助！

Answer 1

也许是这样（对不起，我需要以Sheet1为例；可以随时对其进行更改）：

Sub SumValues()
    Dim Over65              As Worksheet
    Dim Over65M             As Long

    Set Over65 = Sheets("Sheet1")

    With Over65
        Over65M = .Range("M" & .Rows.Count).End(xlUp).Row
        .Range("M5:M1000").Find("").Formula = "=sum(M5:M" & Over65M - 1 & ")"
    End With
End Sub

VBA中最后一行的总和减1

1 个答案: