excel vba - 總結表中的2列之間的行

Question

我有Excel中的表，並且想總結列「count」和「restocked」中的所有單元格，然後將結果覆蓋在列「count 「本身。接下來，宏將清除「補充」列中的所有現有值。

將不勝感激任何幫助！

Answer 1

如上所述，我希望您在詢問您的下一個問題之前先研究一下。但我喜歡讓人們開始使用VBA的想法，所以這裏是：

Sub test() 
'First you dimension two variables as Ranges  
Dim cnt As Range 
Dim rstckd As Range 
'You assign the Ranges to the variable 
Set cnt = Range("A2:A4") 
Set rstckd = Range("B2:B4") 
'To store the results you initialize an array to store the sums 
Dim results() 
'You redimension the results array to the number of entries in your table 
ReDim results(1 To cnt.Rows.Count) 
'You loop over your table and sum the values from count and restocked 
For i = 1 To cnt.Rows.Count 
    results(i) = cnt(i, 1) + rstckd(i, 1) 
Next i 
'You write the array to the range count and delete the values in restocjed 
cnt = Application.Transpose(results) 
rstckd.Clear 

End Sub