vba将一个excel文件中一列中所有的项导入另一个excel文件

Private Sub CommandButton1_Click()

    Application.ScreenUpdating = False

    Dim wk1 As Workbook, sh1 As Worksheet, wk2 As Workbook, sh2 As Worksheet

    Filename = Application.GetOpenFilename(fileFilter:="Excel File (*.xlsx), *.xlsx,Excel File(*.xls), *.xls", FilterIndex:=2, Title:="请选择文件")

    If Filename = False Then

    Else

        Workbooks.Open (Filename)

        Set wk1 = ThisWorkbook

        Set