在不同尺寸表中循环显示Excel VBA

Question

回答上个问题，为我提供了此循环的基础。

VBA Excel - Loop through worksheet creating tables

不过，我遇到了一个问题，我可以与右下它的行没有数据的表头。在这种情况下，我只想制作一个只有标题的表格。

我试过这段代码 - 简单地将rngStart下面的行分配为oneDown。然后创建一个if /然后检查是否LEN（oneDown）> 0

`Dim ws As Worksheet 
Set ws = ActiveSheet 

With ws 

'find last row of data in column A 
Dim lRow As Long 
lRow = .Range("A" & .Rows.Count).End(xlUp).Row 
Dim rngStart As Range 
Set rngStart = .Range("A3") 

'set counter variable for naming tables 
Dim i As Long 
i = i + 1 
Dim oneDown As Long 
Set oneDown =rngStart.Offset(1) 

Do 

if Len(oneDown) > 0 Then 
    'create table range 
    Set rngTable = .Range(rngStart.End(xlToRight),rngStart.End(xlDown)) 
    'create table 
    .ListObjects.Add(xlSrcRange, rngTable.Resize(rngTable.Rows.Count, rngStart.End(xlToRight).Column), , xlYes).Name = "Table" & i 
    'set style 
    .ListObjects("Table" & i).TableStyle = "TableStyleLight9" 
    'find next table range start 
    Set rngStart = rngTable.End(xlDown).Offset(2) 
Else 
'create table range 
    Set rngTable = .Range(rngStart.End(xlToRight)) 
    'create table 
    .ListObjects.Add(xlSrcRange, rngTable.Resize(rngTable.Rows.Count, rngStart.End(xlToRight).Column), , xlYes).Name = "Table" & i 
    .ListObjects("Table" & i).TableStyle = "TableStyleLight9" 
    Set rngStart = rngTable.End(xlDown).Offset(2) 

End If 
    i = i + 1 

Loop Until rngStart.Row > lRow 

End With` 

我得到了相同的结果与我的数据，如果我没有足够的的if/then到位。

Answer 1

我不得不改变你的代码的一部分，但这个曾与我测试了这样试一试：

Dim ws As Worksheet 
    Set ws = ActiveSheet 

    With ws 

    'find last row of data in column A 
    Dim lRow As Long 
    lRow = .Range("A" & .Rows.Count).End(xlUp).Row 
    Dim rngStart As Range 
    Set rngStart = .Range("A3") 

    'set counter variable for naming tables 
    Dim i As Long 
    i = i + 1 

    Do 

Dim oneDown As String 
oneDown = rngStart.Offset(1) 

'Proceed to next cell if rngstart is empty 
If rngStart.Value = "" Then 
    Set rngStart = rngStart.Offset(1) 
ElseIf Len(oneDown) > 0 Then 
    'create table range 
    Set rngtable = .Range(rngStart.End(xlToRight), rngStart.End(xlDown)) 
    'create table 
    .ListObjects.Add(xlSrcRange, rngtable.Resize(rngtable.Rows.Count, rngStart.End(xlToRight).Column), , xlYes).Name = "Table" & i 
    'set style 
    .ListObjects("Table" & i).TableStyle = "TableStyleLight9" 
    'find next table range start 
    Set rngStart = rngtable.End(xlDown).Offset(1) 
    i = i + 1 
Else 
'create table range 
    Set rngtable = .Range(rngStart.End(xlToRight), rngStart) 
    'create table 
    .ListObjects.Add(xlSrcRange, rngtable.Resize(rngtable.Rows.Count, rngStart.End(xlToRight).Column), , xlYes).Name = "Table" & i 
    .ListObjects("Table" & i).TableStyle = "TableStyleLight9" 
    Set rngStart = rngtable.End(xlDown).Offset(1) 
    i = i + 1 
End If 


    Loop Until rngStart.Row > lRow 

    End With