如何创建多个动态表

问题描述

我是 VBA 新手。我想创建与给定值 X 一样多的动态表。应该创建一个靠近另一个的表。表格的每一行都应该至少有一个包含文本和公式的单元格。这是我已经完成的：

Private Sub CommandButton1_Click()

Dim t As ListObject

Dim c As Range


Sheet4.Activate

Set t = Sheet4.ListObjects.Add(xlSrcRange,Sheet4.Range("A2").Resize(37,5),xlNo)

t.ListColumns(1).Name = "Samples"

t.ListColumns(2).Name = "Activities"

t.ListColumns(3).Name = "Discipline"

t.ListColumns(4).Name = "Activity"

t.ListColumns(5).Name = "Duration(h)"

End Sub

我不知道如何进行循环以将表格放在列而不是行上，以及如何在表格行中动态添加名称和公式。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）