Question

我一直在寻找圆圈，因为我已经搜索过，并且有很多类似于我想做的但是没有什么确切的。我的数据存在于A列中，我需要能够找到A列中的最后一行，复制上面的所有数据（包括最后一行）并粘贴到新工作簿中的新工作表。任何帮助将非常感激。

import git
repo = git.Repo('path/to/repo')
tags = sorted(repo.tags, key=lambda t: t.tag.tagged_date)
latest_tag = tags[-1]

Answer 1

从工作表中复制整个A列＆＃34; CopyFromThisOne＆＃34;一个新的，空的工作簿：

Sub CopyWholeColumnA()
Dim wb as Workbook
Set wb = Workbooks.Add

With ThisWorkbook.Worksheets("CopyFromThisOne")
    .Range("A:A").Copy wb.Worksheets(1).Range("A1")
End with
End Sub

将第1行复制到连续范围内的最后一个占用行到新工作簿：

Sub CopyColumnAOccupied()
Dim lastrow as integer
Dim wb as workbook
Set wb = Workbooks.add

With ThisWorkbook.Worksheets("CopyFromThisOne")
    lastrow = .Range("A1").End(xlDown).Row
    .Range("A1:A" & lastrow).Copy wb.Worksheets(1).Range("A1")
End With
End Sub

虽然根据您的问题（新工作簿中的新工作表），我说您不需要查找任何行，您只需复制整个列。

vba找到最后一行并复制上面A列中的所有数据

1 个答案: