Question

我正在努力实现以下目标：

在人力资源部门，他在一张表中输入每个新候选人的数据，这些数据主要是每月和每年的成本。

他正在寻找的是拥有一个添加按钮，他可以将一些选定的数据添加到另一个工作表中以创建某种报告，因此每当他添加新数据时，它都会存储在另一张表中的新行。

Answer 1

试试这个。你在一张表中说出每个新候选人。因此，您在宏中看到的数据在范围（E4：E7）的“Ece”表中，因为您说它在D4：D6 ..）。它只是制作副本然后粘贴在第二行的工作表报告中，具有转置功能。当您再次单击添加时，它将复制并粘贴到报告表中的下一行。如果您的数据仅适用于工作表中的一个候选人，则它可以工作。

    Sub Macro1()
'
' Macro1 Macro
'

'
Sheets("EcE").Select
    Range("E4:E7").Select
    Selection.Copy
    Sheets("Report").Select
    Range("A2").Select
    lMaxRows = Cells(Rows.Count, "A").End(xlUp).Row
Range("A" & lMaxRows + 1).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Range("A1").Select



End Sub

将选定工作表中的数据复制到另一个工作表中的另一个新行

1 个答案: