Question

我在呼叫中心工作，在每次呼叫后我们都必须留下笔记，以跟踪呼叫和后续活动，我试图找出代码以使其复制并自动粘贴到下一个单元格中。在Sheet2中为空白

我尝试添加Importsheet / Activesheet粘贴，但是它只是替换了下一张工作表中的单元格。我不知道如何在代码中包含Isblank以便粘贴在

下

Sub CopyData()
    Sheets(“ImportSheet”).Select
    Range(“A1:A5”).Copy
    Sheets(“DataTable”).Select
    Range(“A1”).Select
    ActiveSheet.Paste
End Sub

这是我在网站上使用的示例。

它只是替换下一张工作表中的单元格。

Answer 1

要在数据表工作表中查找下一个空行，可以使用

dim lRow as long
lRow = Sheets("DataTable").cells(Rows.Count,"A").end(xlup).row + 1

然后您可以粘贴到该行中。您无需选择单元格即可进行复制和粘贴。

Sub CopyData()
    dim lRow as long
    lRow = Sheets("DataTable").cells(Rows.Count,"A").end(xlup).row + 1
    Sheets("ImportSheet").Range("A1:A5").Copy Sheets("DataTable").Range("A" & lRow).Paste
End Sub

请注意，您发布的代码带有“引号”。这些在VBA中不起作用。网站通常将直接引号转换为卷曲引号。您需要在运行代码之前用双引号将它们替换。

如何在Excel中将信息从一张纸复制到另一张纸

1 个答案: