求助VBA代码问题

等于是准确的比较，你是模糊的，比较应该用if 变量 like

而且你那个参数fd也没声明是什么东西，这代码太不严谨，系统不一定就能知道你这fd是文件夹

另外，你复制文件，用fd & f1你又把fd当字符串了，相当混乱，前面把fd又是当文件夹对象

在VBA中，你可以使用FileSystemObject对象来实现文件系统的操作，以下是一个示例代码，它可以实现在源文件夹及其子文件夹下模糊查询A列文本，并将查找到的文件复制到目标文件夹：
vba
Sub FindAndCopyFiles()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim sourceFolder As String
Dim targetFolder As String
Dim fso As Object
Dim sourceFolderObj As Object
Dim file As Object
Dim found As Boolean
'设置工作表
Set ws = ThisWorkbook.Sheets("Sheet1") '请根据实际工作表名称修改
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
'设置源文件夹和目标文件夹路径
sourceFolder = "C:\SourceFolder" '请根据实际源文件夹路径修改
targetFolder = "C:\TargetFolder" '请根据实际目标文件夹路径修改
'创建FileSystemObject对象
Set fso = CreateObject("Scripting.FileSystemObject")
Set sourceFolderObj = fso.GetFolder(sourceFolder)
'遍历A列中的每一个文本
For i = 1 To lastRow
found = False
'遍历源文件夹及其子文件夹中的文件
For Each file In 网页链接 If InStr(1, file.Name, ws.Cells(i, 1).Value, vbTextCompare) > 0 Then
'复制文件到目标文件夹
网页链接 targetFolder & "\" & 网页链接 found = True
End If
Next file
If Not found Then
网页链接 "未找到包含文本 '" & ws.Cells(i, 1).Value & "' 的文件"
End If
Next i
'释放对象
Set file = Nothing
Set sourceFolderObj = Nothing
Set fso = Nothing
End Sub
代码说明：
1.设置工作表和获取A列最后一行：使用ThisWorkbook.Sheets("Sheet1")获取工作表对象，并通过Cells(ws.Rows.Count, "A").End(xlUp).Row获取A列最后一个有数据的行号。
2.设置源文件夹和目标文件夹路径：请将sourceFolder和targetFolder修改为实际的路径。
3.创建FileSystemObject对象：使用CreateObject("Scripting.FileSystemObject")创建FileSystemObject对象，用于操作文件系统。
4.遍历A列文本和文件：通过嵌套循环，遍历A列中的每一个文本，并在源文件夹及其子文件夹中查找文件名包含该文本的文件。
5.复制文件：使用网页链接方法将找到的文件复制到目标文件夹。
6.释放对象：代码结束时，释放所有使用的对象。
请根据实际情况修改工作表名称、源文件夹路径和目标文件夹路径。

f1是file对象，不能和字符串比较，f1.name