如何在另一个工作表的底部导入已修改的单元格

我开发了一个macros，可以在同一个工作簿中将一列从一个表格导入到另一个表格。 这个工作，但现在我想要的是，当我修改第一个工作表中的单元格，而不是在另一个工作表中压碎它。 相反，我想它将其添加到其他工作表的底部。

Public Sub Click() Sheets("PTR").Range("B6").Select lRow = Worksheets("Analyse").Range("C6").End(xlDown).Row Worksheets("Analyse").Range("C6:C" & lRow).Copy Destination:=Sheets("PTR").Range("B6:B" & lRow) Application.CutCopyMode = False End Sub 

Answer 1

这是你正在尝试？ （ 未经testing ）

我已经评论了代码，所以你不应该有理解它的问题。 如果你这样做，只要问:)

 Public Sub Click() Dim wsI As Worksheet, wsO As Worksheet Dim lRowWsI As Long, lRowWsO As Long '~~> Set your output sheet Set wsO = ThisWorkbook.Worksheets("PTR") '~~> Find the last row where the data needs to go lRowWsO = wsO.Range("B" & wsO.Rows.Count).End(xlUp).Row + 1 '~~> Set Input Sheet Set wsI = ThisWorkbook.Worksheets("Analyse") With wsI '~~> Find Last Row to get the range you want to copy lRowWsI = .Range("C" & .Rows.Count).End(xlUp).Row '~~> Do the final Copy .Range("C6:C" & lRowWsI).Copy Destination:=wsO.Range("B" & lRowWsO) End With Application.CutCopyMode = False End Sub 

要find最后一行，你可能想看到这篇文章。