вычесть между последней ячейкой из столбца и последней ячейкой из другого столбца и поместить результат в определенную ячейку

Question

Мне нужен код vba, чтобы вычесть последнюю ячейку из столбца B и последнюю ячейку из столбца D и поместить результат в ячейку N1.Положение последней ячейки в обоих столбцах может изменяться.

Thx

Answer 1

Этот код помогает вам.Он берет последнюю ячейку обоих столбцов B и D и вычитает их значение из N1 cell:

Sub MySub()
    Dim lastBRow As Long
    Dim lastDRow As Long

    lastBRow = Range("B" & Rows.count).End(xlUp).Row
    lastDRow = Range("D" & Rows.count).End(xlUp).Row
    Range("N1").Value = Range("B" & lastBRow).Value - Range("D" & lastDRow).Value
End Sub