VBA 覆盖导入、查找匹配并返回对应值

VBA实现覆盖导入

VBA中可以使用FileSystemObject对象来实现文件的覆盖导入。具体实现步骤如下：

引入Microsoft Scripting Runtime库

在VBA编辑器中，依次点击“工具”->“引用”，勾选“Microsoft Scripting Runtime”库，然后点击“确定”按钮。
创建FileSystemObject对象

在VBA代码中，使用以下语句创建FileSystemObject对象：
```
Dim fso As New FileSystemObject
```
判断目标文件是否存在

使用FileSystemObject对象的FileExists方法判断目标文件是否存在，如果存在则删除目标文件。
```
If fso.FileExists('目标文件路径') Then
    fso.DeleteFile '目标文件路径'
End If
```
复制源文件到目标文件路径

使用FileSystemObject对象的CopyFile方法将源文件复制到目标文件路径。
```
fso.CopyFile '源文件路径', '目标文件路径'
```

完整代码示例：

Sub ImportFile()
    Dim fso As New FileSystemObject
    
    '判断目标文件是否存在，如果存在则删除目标文件
    If fso.FileExists('目标文件路径') Then
        fso.DeleteFile '目标文件路径'
    End If
    
    '复制源文件到目标文件路径
    fso.CopyFile '源文件路径', '目标文件路径'
End Sub

VBA实现在B列查找A列内容，找到一致的返回C列对应行的内容在D列

VBA中可以使用Range对象和Loop循环来实现在B列查找A列内容，找到一致的返回C列对应行的内容在D列输出。具体实现步骤如下：

定义变量和范围

在VBA代码中，定义变量和范围，例如：

Dim i As Integer
Dim j As Integer
Dim lastRow As Long
Dim searchValue As String
Dim foundValue As String
lastRow = Cells(Rows.Count, 'A').End(xlUp).Row '获取A列最后一行行号

循环查找

使用Loop循环在B列中查找A列对应单元格的值，如果找到则获取C列对应单元格的值，将其赋值给变量foundValue。例如：

For i = 1 To lastRow '逐行查找
    searchValue = Cells(i, 'A').Value '获取A列单元格的值
    j = 1 '从B列第一行开始查找
    Do While Cells(j, 'B').Value <> '' '循环查找B列非空单元格
        If Cells(j, 'B').Value = searchValue Then '如果找到匹配值
            foundValue = Cells(j, 'C').Value '获取C列对应单元格的值
            Exit Do '退出循环
        End If
        j = j + 1 '继续查找下一行
    Loop
    '将foundValue赋值给D列对应单元格
    Cells(i, 'D').Value = foundValue
Next i

完整代码示例

将以上步骤整合，得到完整代码示例：

Sub FindMatch()
    Dim i As Integer
    Dim j As Integer
    Dim lastRow As Long
    Dim searchValue As String
    Dim foundValue As String

    lastRow = Cells(Rows.Count, 'A').End(xlUp).Row '获取A列最后一行行号

    For i = 1 To lastRow '逐行查找
        searchValue = Cells(i, 'A').Value '获取A列单元格的值
        j = 1 '从B列第一行开始查找

        Do While Cells(j, 'B').Value <> '' '循环查找B列非空单元格
            If Cells(j, 'B').Value = searchValue Then '如果找到匹配值
                foundValue = Cells(j, 'C').Value '获取C列对应单元格的值
                Exit Do '退出循环
            End If
            j = j + 1 '继续查找下一行
        Loop

        '将foundValue赋值给D列对应单元格
        Cells(i, 'D').Value = foundValue
    Next i
End Sub

B列改为第二个工作表的B列

VBA中可以使用Worksheets对象来访问工作表，通过指定工作表的名称或索引号来访问不同的工作表。具体实现步骤如下：

定义变量和范围

在VBA代码中，定义变量和范围，例如：

Dim i As Integer
Dim j As Integer
Dim lastRow As Long
Dim searchValue As String
Dim foundValue As String
lastRow = Worksheets('Sheet1').Cells(Rows.Count, 'A').End(xlUp).Row '获取Sheet1工作表A列最后一行行号

循环查找

使用Loop循环在Sheet1工作表的B列中查找A列对应单元格的值，如果找到则获取Sheet1工作表C列对应单元格的值，将其赋值给变量foundValue。例如：

For i = 1 To lastRow '逐行查找
    searchValue = Worksheets('Sheet1').Cells(i, 'A').Value '获取Sheet1工作表A列单元格的值
    j = 1 '从Sheet2工作表B列第一行开始查找
    Do While Worksheets('Sheet2').Cells(j, 'B').Value <> '' '循环查找Sheet2工作表B列非空单元格
        If Worksheets('Sheet2').Cells(j, 'B').Value = searchValue Then '如果找到匹配值
            foundValue = Worksheets('Sheet1').Cells(i, 'C').Value '获取Sheet1工作表C列对应单元格的值
            Exit Do '退出循环
        End If
        j = j + 1 '继续查找下一行
    Loop
    '将foundValue赋值给Sheet1工作表D列对应单元格
    Worksheets('Sheet1').Cells(i, 'D').Value = foundValue
Next i

完整代码示例

将以上步骤整合，得到完整代码示例：

Sub FindMatch()
    Dim i As Integer
    Dim j As Integer
    Dim lastRow As Long
    Dim searchValue As String
    Dim foundValue As String

    lastRow = Worksheets('Sheet1').Cells(Rows.Count, 'A').End(xlUp).Row '获取Sheet1工作表A列最后一行行号

    For i = 1 To lastRow '逐行查找
        searchValue = Worksheets('Sheet1').Cells(i, 'A').Value '获取Sheet1工作表A列单元格的值
        j = 1 '从Sheet2工作表B列第一行开始查找

        Do While Worksheets('Sheet2').Cells(j, 'B').Value <> '' '循环查找Sheet2工作表B列非空单元格
            If Worksheets('Sheet2').Cells(j, 'B').Value = searchValue Then '如果找到匹配值
                foundValue = Worksheets('Sheet1').Cells(i, 'C').Value '获取Sheet1工作表C列对应单元格的值
                Exit Do '退出循环
            End If
            j = j + 1 '继续查找下一行
        Loop

        '将foundValue赋值给Sheet1工作表D列对应单元格
        Worksheets('Sheet1').Cells(i, 'D').Value = foundValue
    Next i
End Sub

**注意：**在以上示例中，我们假设要将Sheet1工作表的B列改为Sheet2工作表的B列。如果需要将其他工作表的列复制到当前工作表的列中，只需要将Worksheets对象的引用修改为当前工作表即可。例如，如果要将Sheet2工作表的C列复制到当前工作表的D列中，可以使用以下代码：

searchValue = Cells(i, 'A').Value '获取当前工作表A列单元格的值
j = 1 '从Sheet2工作表C列第一行开始查找
Do While Worksheets('Sheet2').Cells(j, 'C').Value <> '' '循环查找Sheet2工作表C列非空单元格
    If Worksheets('Sheet2').Cells(j, 'C').Value = searchValue Then '如果找到匹配值
        foundValue = Worksheets('Sheet2').Cells(j, 'C').Value '获取Sheet2工作表C列对应单元格的值
        Exit Do '退出循环
    End If
    j = j + 1 '继续查找下一行
Loop
'将foundValue赋值给当前工作表D列对应单元格
Cells(i, 'D').Value = foundValue