Как написать конкретные данные из одного листа 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 

Я предположил, что вход на колонке 1, а выход на колонке 2.