如何通過腳本將一個Excel工作表中的特定數據寫入另一個工作表？

Question

請找到下面的細節，

INPUT OUTPUT 
2 8 
6 7 
0 0 
0 0 
55 88 
0 0 
0 0 
0 0 
0 0 
75 94 
0 0 
0 0 
0 0 
0 0 
30 30 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
45 45 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
0 0 
14 106 
13 13 

我在Sheet1中的上述數據，我想寫的每個數據總和列在Sheet2中。

Answer 1

您打算添加INPUT（工作表1）和OUTPUT（工作表1）並在第1列（工作表2）上顯示結果？如果是這樣，試試這個;

Private Sub add() 

Dim i As Integer 

i = 2 

Do Until Sheet1.Cells(i, 1) = "" 

     Sheet2.Cells(i, 1) = Sheet1.Cells(i, 1) + Sheet1.Cells(i, 2) 

i = i + 1 
Loop 

End Sub 

我假定INPUT是第1列和輸出爲ON塔2