Excel VBA-遍历电子表格基于查询创建表

Question

I'm hoping to loop through a worksheet and create Tables based on certain indexes. Essentially my table is structured as follows:

ID | 101
Date | 2018-07-18
Product | Banana
Comments | 

ID | 102
Date | 2018-07-18
Product | Apple
Comments |

And I'm just hoping to write a code that will loop through the worksheet and make one Table for every ID to Comments. I'm included links to screenshots showing my initial table, and the desired outcome of the code.

Before:

After:

Thanks again for your advice.

Answer 1

Here's a highly customized solution. It assumes table always 4 rows and two columns.

Sub easyGoofy()
Dim WS As Worksheet, rCell As Range, i As Integer, rStart As Long

For Each WS In ActiveWorkbook.Sheets
i = 0
rStart = 1

startSearch:
    If Not Intersect(WS.UsedRange.Cells, WS.Rows(rStart & ":" & Rows.Count)) Is Nothing Then

        For Each rCell In Intersect(WS.UsedRange.Cells, WS.Rows(rStart & ":" & Rows.Count)).Cells
            If UCase(rCell.Value) = "ID" And UCase(rCell.Offset(1, 0).Value) = "DATE" Then

                WS.ListObjects.Add(xlSrcRange, Range(rCell, rCell.Offset(3, 1)), , xlYes).Name = "TBL_" & i
                rStart = WS.ListObjects("TBL_" & i).DataBodyRange.Rows.Count + 1 + rStart
                 i = i + 1

                GoTo startSearch

            End If
        Next rCell

    End If

Next WS

End Sub