сумма до последней строки минус 1 в VBA - PullRequest
0 голосов
/ 28 апреля 2019

В 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

Пожалуйста, помогите!

1 Ответ

0 голосов
/ 29 апреля 2019

Может быть что-то в этом роде (извините, мне нужно было использовать 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...