如何通过脚本将一个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