如何通过脚本将特定数据从一个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列，OUTPUT在第2列。