Question

我已经在Excel中设计了一个手动表单（不使用Excel表单）从工作表“雇员表格”中的单元格链接到第二个工作表中名为“ DataSet”的同一文件中的数据集。

我设法填充了第一行，但是我不知道如何制作它，以便单击按钮后可以填充多行。

因此，在为员工A填写完表格后，用户可以继续为员工B填写表格。现在，我只能为一位用户填写表格。

这是我目前拥有的：

Sub Fill_form()
   ActiveWorkbook.RefreshAll
     Worksheets("DataSet").Range("A2:Y2").Copy
     Worksheets("DataSet").Range("A2").PasteSpecial Paste:=xlPasteValues
    ActiveWorkbook.Close
End Sub

任何帮助将不胜感激。谢谢！

Answer 1

您可能只需要使用循环：

Sub Fill_form()

    dim i as Long, LastRow as Long

    ActiveWorkbook.RefreshAll
    LastRow = Sheets("DataSet").Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 to LastRow
        Worksheets("DataSet").Range("A" & i & ":Y" & i).Copy
        Worksheets("DataSet").Range("A" & i).PasteSpecial Paste:=xlPasteValues
    Next
    ActiveWorkbook.Close

End Sub

希望这会有所帮助！

从手动制作的Excel表单自动填充多行

1 个答案: