VBA是一种用于在Microsoft Office应用程序中自动化任务的编程语言。在Excel中，我们可以使用VBA来执行各种任务，如复制和粘贴数据。本篇文章将介绍如何使用VBA将一个范围复制到最后一行，并将其粘贴到一个新的工作表中的第一个空行，具体实现的案例代码将在后文中给出。
首先，我们需要明确要复制的范围。假设我们要复制的范围是当前工作表中的A1:C10。接下来，我们需要找到目标工作表中第一个空行的位置，即单元格A19之后的第一个空行。为了实现这个目标，我们可以使用VBA中的特定属性和方法。首先，我们可以使用`UsedRange`属性来获取当前工作表中使用的范围。然后，我们可以使用`End(xlDown)`方法来找到最后一行的位置。最后，我们可以使用`Offset`方法来定位到目标位置。现在，我们可以编写VBA代码来实现这个任务。以下是案例代码：vbaSub CopyRangeToNewWorksheet() Dim sourceRange As Range Dim targetWorksheet As Worksheet Dim lastRow As Long Dim targetRow As Long ' 获取要复制的范围 Set sourceRange = ThisWorkbook.ActiveSheet.Range("A1:C10") ' 获取目标工作表 Set targetWorksheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) ' 找到目标位置的最后一行 lastRow = targetWorksheet.Cells(targetWorksheet.Rows.Count, 1).End(xlUp).Row ' 确定目标行 targetRow = lastRow + 1 ' 将范围复制到目标位置 sourceRange.Copy targetWorksheet.Cells(targetRow, 1)End Sub上述代码首先定义了一些变量，包括源范围、目标工作表、最后一行和目标行。然后，通过使用`Set`关键字，将源范围设置为当前工作表中的A1:C10。接下来，使用`Sheets.Add`方法创建一个新的工作表，并将其设置为目标工作表。通过使用`Cells`属性和`End(xlUp)`方法，找到目标工作表中最后一行的位置，并将其存储在`lastRow`变量中。最后，通过使用`Copy`方法和`Cells`属性，将源范围复制到目标工作表的目标行中。通过运行上述代码，我们可以将指定范围的数据复制到一个新的工作表中的第一个空行。这样，我们就可以在不手动操作的情况下，使用VBA自动化这一任务，提高工作效率。案例代码：vbaSub CopyRangeToNewWorksheet() Dim sourceRange As Range Dim targetWorksheet As Worksheet Dim lastRow As Long Dim targetRow As Long ' 获取要复制的范围 Set sourceRange = ThisWorkbook.ActiveSheet.Range("A1:C10") ' 获取目标工作表 Set targetWorksheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) ' 找到目标位置的最后一行 lastRow = targetWorksheet.Cells(targetWorksheet.Rows.Count, 1).End(xlUp).Row ' 确定目标行 targetRow = lastRow + 1 ' 将范围复制到目标位置 sourceRange.Copy targetWorksheet.Cells(targetRow, 1)End Sub：本文介绍了如何使用VBA将一个范围复制到最后一行，并将其粘贴到一个新的工作表中的第一个空行。通过编写相应的VBA代码，我们可以自动化这一任务，提高工作效率。希望这篇文章能够帮助到需要使用VBA来处理Excel数据的读者们。