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

Question

所以，我有2个工作表; Sheet1用于输入灯泡在一天内点亮的数据（有几盏灯），而Sheet 2是每盏灯总累计点亮时间的摘要。

我的工作人员每天都会更新Sheet1中的数据（即灯泡ID和点亮的数量）。如何计算Sheet1中每个灯的总累计亮度，然后通过VBA将值复制到Sheet2？我不确定如何沟通不同的工作表......

Answer 1

如果需要在Sheet2上的VBA中尝试此操作：

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