如何使用vba将选定内容第一行的所有值复制到新工作表中？

Sub CopyFirstRow()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastColumn As Integer
    Dim i As Integer
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.ActiveSheet
    Set targetSheet = ThisWorkbook.Sheets.Add(After:=sourceSheet)
    
    ' 获取源工作表的最后一列
    lastColumn = sourceSheet.Cells(1, sourceSheet.Columns.Count).End(xlToLeft).Column
    
    ' 复制第一行的值到目标工作表
    For i = 1 To lastColumn
        targetSheet.Cells(1, i).Value = sourceSheet.Cells(1, i).Value
    Next i
End Sub