使用vba将excel中两个表格不同列进行合并

以下是一个示例代码，可以将两个表格中的不同列进行合并：

Sub MergeColumns() Dim ws1 As Worksheet, ws2 As Worksheet Dim lastRow1 As Long, lastRow2 As Long Dim i As Long, j As Long

'设置需要合并的表格
Set ws1 = ThisWorkbook.Worksheets("Sheet1")
Set ws2 = ThisWorkbook.Worksheets("Sheet2")

'获取表格1和表格2的最后一行
lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
lastRow2 = ws2.Cells(ws2.Rows.Count, "B").End(xlUp).Row

'将表格2的B列数据复制到表格1的C列
For i = 2 To lastRow1
    For j = 2 To lastRow2
        If ws1.Cells(i, 1).Value = ws2.Cells(j, 1).Value Then
            ws1.Cells(i, 3).Value = ws2.Cells(j, 2).Value
            Exit For
        End If
    Next j
Next i

End Sub

这个代码假设表格1的第一列是需要合并的列，表格2的第一列是与表格1匹配的列，表格2的第二列是需要合并到表格1的列。代码将表格2的第二列数据复制到表格1的第三列中，以完成合并。