[英]Excel VBA Adding the Value to the Existing Value instead of Replacing it?
我希望它在定位坐標時將“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
簡單地
.Range("B4").Offset(r, c).Value =.Range("B4").Offset(r, c).Value +.Range("M19").Value
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.