Question

这是我的第一篇文章，涉及任何类型的编码时，我都是菜鸟。我是第一次自己尝试，已经遇到了第一个障碍，花了2个小时寻找类似的解决方案后，我放弃了。对不起，我失败了。

所以我希望有人可以帮助我。我有一个将要填写的excel表单，然后需要将该表单中的数据传输到表中，我在excel中使用了form函数，但鉴于我有这么多的数据点，我将不得不创建许多表。
因此，我考虑编写一些代码，将这些值复制到表单中并将其粘贴到表中。我无法弄清楚如何告诉VBA将值粘贴到给定列中的下一个空单元格上。

Sub CopyData()
    Worksheets("Form").Range("AE5").Copy
        Worksheets("Raw Data").Range("AB3").PasteSpecial Paste:=xlPasteValues
    Worksheets("Form").Range("AH5").Copy
        Worksheets("Raw Data").Range("AC3").PasteSpecial Paste:=xlPasteValues
    Worksheets("Form").Range("AL5").Copy
        Worksheets("Raw Data").Range("AD3").PasteSpecial Paste:=xlPasteValues
End Sub

从一个工作表中复制各种单元格，然后复制到列中的最后一个空单元格中

0 个答案: