主题：[求助]增加多行

 

   请问，如何在一个关联表上增加多行，然后其中的几列等于最后一列的内容？

什么意思？

举例说明。

此主题相关图片如下：批量增加数据.jpg

   大概意思是这样的，麻烦狐爸看看！

呃...你的意思是说：新增一行，填入数据以后，然后（自动）添加5行（依据填入的数据）？

ctrl+d

   狐爸，这个问题还需要您帮我看看，就是克隆多行数据，然后其中的某几列引用被克隆行的数据~谢谢啦！

不是不帮忙，我是理解不了你的问题

那我再描述下：

 

    就是我要批量添加多行数据，每一行中有几个单元格的数据是跟最后一行数据一样的！

如果这样，你可以自己做个在关联表增加行的按钮，这样每次增加行，需要的列可以从最后一行继承内容：

 

if Tables("表1.表2").Rows.Count > 0 Then

    With Tables("表1.表2")

         Dim r1 Row = .Rows(.Rows.Count -1)

         Dim r2 As row  = .AddNew()

         r2("某列1") = r1("某列1")

         r2("某列2") = r1("某列3")

         r2("某列3") = r1("某列4")

    End with

Else

    Tables("表1.表2").AddNew
End If

Dim r1 Row = .Rows(.Rows.Count -1)

 

这句话提示“应为语句结束”，麻烦狐爸再帮忙看看~~太感谢了