VBA Sub从一个表中添加行以检查行项目的多个表的数量> 0，然后动态添加到新表

Question

我将各种桌子堆叠在一起，形成各种要销售的产品。在每个表中都有与该组相关的产品（想想杂货和农产品可能是表的标题，然后在生菜、西红柿、卷心菜等下面作为标题，其中一个标题是 qty - 第一列）。我想遍历每个表，并为每个具有 qty > 0 的表打印表的标题，并且只打印具有 qty>0 的行。

我下面的想法是遍历每个表（从 table1 开始），如果 qty>0，则将该行复制到动态创建的表中，添加行然后将全局标志标记为 true。如果为 true，则粘贴标题、标题，然后是创建的表。我不知道如何向表中添加行....

子 CopyRows()

Dim wb As Workbook: Set wb = ThisWorkbook
Dim ws, ws2 As Worksheet
Set ws = wb.Sheets("Summary")
Set ws2 = wb.Sheets("Sales Ops Ready - Rob")
Dim checkFlag As Boolean
Dim lo As ListObject
Dim globalRowCount As Long

Dim objTable As ListObject
Set objTable = ActiveSheet.ListObjects.Add(xlSrcRange, Selection, , xlYes)

Set lo = ws.ListObjects("Table1")

For rw = 1 To lo.Range.Rows.Count
    
    If lo.DataBodyRange(rw, 1) > 0 Then
        checkFlag = True
        ??
    End If
    

Next

结束子

Answer 1

在不了解您的确切要求的情况下，这是一个粗略的想法。

Sub test()
    Dim rw As ListRow
    Dim newRow As ListRow
    Dim lo As ListObject
    Dim objTable As ListObject
    
    Set objTable = ActiveSheet.ListObjects.Add(xlSrcRange, Selection, , xlYes)
    
    For Each rw In lo.ListRows
        If rw.Range(1) > 0 Then 'set the column index here
            Set newRow = objTable.ListRows.Add
            With newRow
                .Range(1) = rw.Range(1)
                .Range(2) = rw.Range(2)
                '... ... etc
            End With
        End If
    Next rw
End Sub