如何用VBA将指定的内容自动填充到另一个工作表中

以下是一个简单的VBA代码示例，可以将一个工作表中的指定内容自动填充到另一个工作表中： Sub CopyData() Dim SourceSheet As Worksheet Dim TargetSheet As Worksheet Dim SourceRange As Range Dim TargetRange As Range '设置源工作表和目标工作表 Set SourceSheet = ThisWorkbook.Worksheets("Sheet1") Set TargetSheet = ThisWorkbook.Worksheets("Sheet2") '设置源范围和目标范围 Set SourceRange = SourceSheet.Range("A1:A10") '将A1到A10的内容复制到目标工作表 Set TargetRange = TargetSheet.Range("A1:A10") '将源范围中的内容复制到目标范围中 SourceRange.Copy Destination:=TargetRange End Sub 在上面的代码中，我们首先定义了源工作表和目标工作表。然后，我们定义了要复制的源范围和要粘贴到的目标范围。最后，我们使用Copy方法将源范围中的内容复制到目标范围中。 您可以根据需要更改源范围和目标范围的位置和大小。此外，您还可以使用其他方法来选择要复制的内容，例如使用Find方法查找特定的单元格或使用Filter方法筛选数据。