Excel VBA计算过滤的单元格并复制到另一个表

Question

所以，我有2个工作表; Sheet1用于输入一天中灯泡点亮次数的数据（有几个灯泡），Sheet2是每个灯泡累计点亮时间的总结。

我的工人将更新工作表Sheet日常生活中的数据（即灯ID和点燃的数量）。如何计算Sheet1中每个灯的总累计亮度，然后通过VBA将该值复制到Sheet2？我不知道如何沟通不同的工作表...

Answer 1

如果需要在VBA在Sheet2上试试这个：

Sub test() 
Dim Sheet1 As Worksheet 
Dim Sheet2 As Worksheet 
Set Sheet1 = Worksheets("Sheet1") 
Set Sheet2 = Worksheets("Sheet2") 
    i = 2 'start in row 2 with lamps 
    While Not IsEmpty(Sheet2.Cells(i, 1)) 
    Sheet2.Cells(i, 2) = WorksheetFunction.SumIf(Sheet1.Range("A1:A9"), Sheet2.Cells(i, 1), Sheet1.Range("B1:B9")) 
    i = i + 1 
    Wend 
End Sub