Excel VBA 將值添加到現有值而不是替換它？

Question

我希望它在定位坐標時將“M19”中的值添加到單元格中的現有值而不是替換。 如果有人有改進此代碼的決心，我將非常感謝您的幫助。 謝謝

Sub AddValue()
 
Dim row As String
Dim c As Single, r As Single
 
With Worksheets("Inventory")
 
    If .Range("M17").Value = "" Then Exit Sub
 
    row = .Range("M17").Value
 
    c = Application.Match(column, .Range("G5:G35"), 0)
    r = Application.Match(row, .Range("B5:B35"), 0)
 
    .Range("B4").Offset(r, c).Value = .Range("M19").Value
 
End With
End Sub

Answer 1

簡單地

.Range("B4").Offset(r, c).Value =.Range("B4").Offset(r, c).Value +.Range("M19").Value