vba - 每当行被填满时，自动在表中创建另一行

Question

我目前正在逐行手动输入数据。例如。

objTable.Cell(1,2).Range.Text = "A"
objTable.Cell(2,2).Range.Text = "B"
objTable.Cell(3,2).Range.Text = "C"

有没有办法让我循环它们？最终产品应该是

objTable.Cell(x,2).Range.Text = "A"
objTable.Cell(x,2).Range.Text = "B"
objTable.Cell(x,2).Range.Text = "C"

标签： vbams-word

Answer 1

如果我们创建了一个表，只需使用以下代码创建一个新行：

existedTable.Rows.Last.Select

Selection.InsertRowsBelow 1