Получение повторов с использованием смещения с текущей областью

Question

Я считаю, что моей проблемой является использование currentregion, но я не уверен, какова альтернатива.Я немного поработал с областями, и, возможно, это путь в долгосрочной перспективе, но если я смогу получить четкий ответ на этот повторяющийся вопрос, я был бы очень признателен

Sub AddAmounts()

Dim AA As Range
Dim Total As Integer

Set AA = Cells(1, 3).CurrentRegion

Total = WorksheetFunction.Sum(AA)
    Debug.Print Total

AA.Offset(, -1) = Total

End Sub

Я бы хотелитого, чтобы оказаться в ячейке B1, что происходит, но, к сожалению, я также получаю результат в ячейках B2 & B3 & B4

Изображение результата и желаемый результат

Answer 1

Это потому, что вы смещаете регион.Так как вы хотите сместить первую ячейку в этой области, вы должны выполнить:

AA.Cells(1).Offset(, -1) = Total

Редактировать: Надо надеяться, что уточнить бит Cells():

Sub AddAmounts()
Dim AA As Range
Set AA = Cells(1, 3).CurrentRegion

AA.Offset(, -1).Select ' Compare this, to the next line
AA.Cells(1).Offset(,-1).Select ' ...and the next
AA.Cells(3).Offset(,-1).Select    
End Sub