Question

我有一个宏，它将一个新表插入一个范围，并根据另一个单元格值命名新表：

Select Code  copy to clipboard
Sub sbCreatTable()
Sheet1.ListObjects.Add(xlSrcRange, Range("B1:B3"), , xlYes).Name = Range("a2").Text

然而，我想要添加表格的表格，已经有一系列表格，全部在行B上，所以我需要将表格添加到这些表格的末尾，并插入行上的第一个空单元格B.我的代码只会在特定范围内插入。

有人可以协助我指出正确的方向吗？

Answer 1

我已经解释了你的叙述，声明你希望新表立即从第二个表开始到其他表的右边。我发现最好保留一个空白栏作为护城河＆＃39;结构化ListObject表之间。

With Sheet1
    With .ListObjects.Add(xlSrcRange, .Cells(2, Columns.Count).End(xlToLeft).Offset(0, 2).Resize(3, 1), , xlYes)
        .Name = .Parent.Range("a2").Text
    End With
End With

如果您要删除空白列，请将Range.Offset property更改为.Offset(0, 1)。

使用宏/ VBA将新表添加到Excel

1 个答案: