Question

我有以下问题：具有未知行数的excel表，并且在每行中具有未知数量的产品以及销售的产品量。例如：1可乐2芬达，...... 其中例如1位于A1，可乐位于B1，2位于C1，...

现在我想获得A栏中的所有金额和B栏中的所有产品，但每个金额都必须与其产品保持联系！

由于我不知道每天有多少行，所以这应该是一个循环，直到“Axx”中没有更多数据

有人可以帮助我吗？谢谢！

Answer 1

虽然我同意Alex D，但你必须给我们一些工作！但我也知道愤怒的宏可以给出，所以你需要做的就是编写C列中的产品列表。这将允许不同的数量

Sub Sample()
    Dim LastRow As Long
    Dim ProductLastRow As Long
    ProductLastRow = Sheets("Sheet1").Cells(Rows.Count, "C").End(xlUp).Row
    LastRow = Sheets("Sheet1").Cells(Rows.Count, "A").End(xlUp).Row 'will find last row
    Set myrng1 = Sheets("Sheet1").Range("B1:B" & LastRow) 'Will find the product name
    Set myrng2 = Sheets("Sheet1").Range("A1:A" & LastRow) 'Will find product amount
    Range("D1:D" & ProductLastRow).FormulaR1C1 = "=SUMIF(" & myrng1.Address(ReferenceStyle:=xlR1C1) & ",RC[-1]," & myrng2.Address(ReferenceStyle:=xlR1C1) & ")"

End Sub

Chin Up！

使用循环移动同一工作簿中的单元格

1 个答案: