咱们先把需求理清楚：

• 匹配A列和E列的日期，只保留A列存在的E列日期
• 把匹配到的日期对应的VALUES、MARKET CAP数据，和A列对应日期的收盘价整合展示

先说说你原代码里的几个小问题：

1. 循环里固定对比A7和E7，没有随循环变量动态切换行，没法遍历所有日期
2. 复制粘贴的目标位置逻辑模糊，没有明确的输出规划
3. 没实现「剔除A列不存在的E列日期」的判断逻辑

修正后的基础版代码 #

下面是调整后的VBA代码，我加了详细注释，你可以直接套用：

Option Explicit

Sub MatchDatesAndCombineData()
    Dim ws As Worksheet
    Dim lastRowA As Long, lastRowE As Long
    Dim i As Long, j As Long
    Dim outputRow As Long
    Dim targetDate As Date
    
    ' 指定操作的工作表，这里用Sheet2，你可以根据实际修改
    Set ws = ThisWorkbook.Sheets("Sheet2")
    
    ' 获取A列和E列的最后一行行号（自动识别数据范围）
    lastRowA = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    lastRowE = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
    
    ' 设置输出起始行，比如从K列第2行开始（假设K1是表头）
    outputRow = 2
    
    ' 遍历E列的所有日期数据
    For i = 4 To lastRowE ' 假设E列从第4行开始是数据，可根据实际调整
        targetDate = ws.Cells(i, "E").Value
        
        ' 检查A列是否存在这个日期
        For j = 4 To lastRowA ' 假设A列从第4行开始是数据，可根据实际调整
            If ws.Cells(j, "A").Value = targetDate Then
                ' 复制A列日期和收盘价（假设B列是收盘价）
                ws.Cells(outputRow, "K").Value = ws.Cells(j, "A").Value
                ws.Cells(outputRow, "L").Value = ws.Cells(j, "B").Value
                
                ' 复制E列对应的VALUES和MARKET CAP（假设F是VALUES，G是MARKET CAP）
                ws.Cells(outputRow, "M").Value = ws.Cells(i, "F").Value
                ws.Cells(outputRow, "N").Value = ws.Cells(i, "G").Value
                
                ' 输出行下移一行，准备存下一组数据
                outputRow = outputRow + 1
                Exit For ' 找到匹配日期后退出内层循环，提升效率
            End If
        Next j
    Next i
    
    MsgBox "数据匹配完成！", vbInformation
End Sub

使用小提示 #

1. 如果你的数据起始行不是第4行，修改代码里的i=4、j=4即可
2. 如果VALUES和MARKET CAP不在F、G列，替换成对应列的标识（比如Cells(i, "H")）
3. 如果不想输出到K:N列，调整Cells(outputRow, "K")这类的列字母

大数据量优化版（用字典加速） #

如果你的数据行数很多，双重循环会比较慢，推荐用字典存储A列数据，把时间复杂度从O(n²)降到O(n)：

Option Explicit

Sub MatchDatesWithDictionary()
    Dim ws As Worksheet
    Dim lastRowA As Long, lastRowE As Long
    Dim i As Long
    Dim outputRow As Long
    Dim dateDict As Object
    Dim targetDate As Date
    
    Set ws = ThisWorkbook.Sheets("Sheet2")
    Set dateDict = CreateObject("Scripting.Dictionary")
    
    lastRowA = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    lastRowE = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
    outputRow = 2
    
    ' 先把A列的日期和对应收盘价存入字典，键是日期，值是收盘价
    For i = 4 To lastRowA
        targetDate = ws.Cells(i, "A").Value
        If Not dateDict.Exists(targetDate) Then
            dateDict(targetDate) = ws.Cells(i, "B").Value
        End If
    Next i
    
    ' 遍历E列，匹配字典里的日期，快速提取数据
    For i = 4 To lastRowE
        targetDate = ws.Cells(i, "E").Value
        If dateDict.Exists(targetDate) Then
            ws.Cells(outputRow, "K").Value = targetDate
            ws.Cells(outputRow, "L").Value = dateDict(targetDate)
            ws.Cells(outputRow, "M").Value = ws.Cells(i, "F").Value
            ws.Cells(outputRow, "N").Value = ws.Cells(i, "G").Value
            outputRow = outputRow + 1
        End If
    Next i
    
    MsgBox "数据匹配完成！", vbInformation
    Set dateDict = Nothing
End Sub

内容的提问来源于stack exchange，提问作者skypumpkin