EXCEL VBA选择一个文件，在第一行搜索关键字，然后将该列复制到另一个文件

Dim fileDialog As FileDialog
Dim selectedFile As Variant

Set fileDialog = Application.FileDialog(msoFileDialogFilePicker)

With fileDialog
    .Title = "选择文件"
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "Excel文件", "*.xlsx; *.xls"
    
    If .Show = -1 Then
        selectedFile = .SelectedItems(1)
    Else
        Exit Sub
    End If
End With

Dim sourceWorkbook As Workbook
Dim sourceWorksheet As Worksheet
Dim keyword As String
Dim columnToCopy As Range

Set sourceWorkbook = Workbooks.Open(selectedFile)
Set sourceWorksheet = sourceWorkbook.Worksheets(1)

keyword = "关键字" ' 替换为你要搜索的关键字

Set columnToCopy = sourceWorksheet.Rows(1).Find(keyword, LookIn:=xlValues, LookAt:=xlWhole)

If Not columnToCopy Is Nothing Then
    sourceWorksheet.Columns(columnToCopy.Column).Copy
    ' 将复制的列粘贴到另一个文件中
    ' 这里可以使用PasteSpecial方法将列粘贴到另一个文件中的指定位置
    ' 也可以使用Workbooks.Open方法打开另一个文件，然后将列粘贴到新文件中
Else
    MsgBox "未找到关键字"
End If

sourceWorkbook.Close SaveChanges:=False