如何使用Excel VBA计算和复制条目

Question

目前，我正在使用具有135.000行的Excel报表。 其中列出了资产，我想计算每个资产并将其写入另一个工作表。

我试图编写一个VBA脚本，您可以在下面找到它。 它仅复制一个条目，但不会遍历工作表的每一行。

Sub assetVulnerabilityCount()
    With Sheets("tblExport")
        assetCount = 1
        rowMax = Sheets("tblExport").Cells(.Rows.Count, "F").End(xlUp).row
        currentAsset = Sheets("tblExport").Range("B" & row).Value
            For row = 2 To rowMax

                    If currentAsset = Sheets("tblExport").Range("B" & row).Value Then
                        Sheets("tblTarget").Range("B" & assetCount).Value = Sheets("tblTarget").Range("B" & assetCount).Value + 1

                        Sheets("tblTarget").Range("A" & assetCount).Value = currentAsset
                    Else:
                        currentAsset = Sheets("tblExport").Range("B" & row).Value
                        assetCount = assetCount + 1

                    End If

            Next Zeile
    End With
End Sub

理想情况下，它将如下所示：

Worksheet1:
Asset Names:
Laptop1337
Laptop1337
Laptop1337
PC420
PC420

Worksheet2:
Asset Name:    Amount:
Laptop1337     3
PC420          2 

我需要Worksheet1，而我需要Worksheet2。

Answer 1

如果我们假设rowMax具有需要迭代的行数，则

For row = 2 To rowMax

如若环行如果

Next Zeile 

被替换为

Next row

由于它是row ，因此是循环中的变量。