Excel VBA -比较两个不同工作表中的两列，然后复制/粘贴-速度-需要一个多小时

Excel VBA是一种用于自动化Excel操作的编程语言，可以通过编写宏来实现各种功能。在比较两个不同工作表中的两列并进行复制/粘贴操作时，可以使用以下步骤：

打开Excel文件并进入Visual Basic for Applications编辑器（按下Alt + F11）。
在编辑器中，插入一个新的模块（右键点击项目资源管理器中的工作簿，选择"插入"->"模块"）。
在新的模块中编写VBA代码来比较两个工作表中的两列并进行复制/粘贴操作。以下是一个示例代码：

Sub CompareAndCopy()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim col1 As Range, col2 As Range
    Dim lastRow1 As Long, lastRow2 As Long
    Dim i As Long, j As Long
    
    ' 设置要比较的工作表和列
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
    Set col1 = ws1.Range("A1:A" & lastRow1)
    Set col2 = ws2.Range("A1:A" & lastRow2)
    
    ' 遍历第一个工作表的列
    For i = 1 To col1.Rows.Count
        ' 遍历第二个工作表的列
        For j = 1 To col2.Rows.Count
            ' 比较两列中的值
            If col1.Cells(i).Value = col2.Cells(j).Value Then
                ' 将匹配的值复制到第一个工作表的B列
                ws1.Cells(i, "B").Value = col1.Cells(i).Value
                Exit For ' 找到匹配值后退出内部循环
            End If
        Next j
    Next i
    
    ' 清除对象引用
    Set ws1 = Nothing
    Set ws2 = Nothing
    Set col1 = Nothing
    Set col2 = Nothing
End Sub

运行宏（按下F5），代码将会比较两个工作表中的两列，并将匹配的值复制到第一个工作表的B列中。

需要注意的是，如果要处理的数据量较大，可能会导致速度较慢。为了提高速度，可以考虑以下优化方法：

使用数组：将要比较的列数据存储在数组中，然后在数组中进行比较和操作，最后将结果写回工作表。
禁用屏幕刷新：在代码开始时使用Application.ScreenUpdating = False，在代码结束时使用Application.ScreenUpdating = True，可以禁用屏幕刷新，提高执行速度。
使用其他Excel功能：例如使用VLOOKUP函数或使用高级筛选等Excel功能来进行比较和操作。

以上是关于比较两个不同工作表中的两列并进行复制/粘贴操作的解决方案。如果您需要了解更多关于Excel VBA的知识，可以参考腾讯云的Excel VBA开发文档：Excel VBA开发文档。