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

Question

所以，我有 2 个工作表； Sheet1 用于输入一天内 lamp 点亮次数的数据（有几个 lamps），Sheet 2 是总累计点亮次数的摘要每个 lamp.

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

Answer 1

如果需要，请在工作表 2 的 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

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

Excel VBA calculate filtered cells and copy to another sheet

excel

vba