早上好呀！我来帮你搞定Excel VBA里合并单元格复制和整行数据获取的问题～

首先我注意到你的代码还没写完，而且直接复制单个单元格的逻辑，在遇到合并单元格时很容易出问题——比如只会拿到合并区域左上角的值，没法正确处理整行数据。下面针对两种常见需求给出解决方案：

场景1：复制Sheet2第一列（含合并单元格）到Sheet4 #

如果要保留合并单元格的格式，或者正确提取合并单元格的内容，可以这样修改代码：

Sub cmdCopy()
    Dim lastrow As Long, erow As Long
    Dim i As Integer
    Dim mergeRange As Range
    
    ' 获取Sheet2第一列的最后一行
    lastrow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 5 To lastrow
        ' 获取当前单元格所属的合并区域
        Set mergeRange = Sheet2.Cells(i, 1).MergeArea
        
        ' 找到Sheet4的下一个空行
        erow = Sheet4.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
        
        ' 选项1：保留合并格式复制到Sheet4
        mergeRange.Copy Destination:=Sheet4.Cells(erow, 1)
        
        ' 选项2：只复制值，不保留格式（如果不需要合并格式的话）
        ' Sheet4.Cells(erow, 1).Value = mergeRange.Cells(1, 1).Value
    Next i
    
    ' 清除剪贴板，避免后续弹窗干扰
    Application.CutCopyMode = False
End Sub

场景2：获取合并单元格所在的整行数据并复制到Sheet4 #

如果你的需求是复制合并单元格所在整行的所有数据，那要注意避免重复复制同一合并区域的行，代码可以这么写：

Sub cmdCopyEntireRow()
    Dim lastrow As Long, erow As Long
    Dim i As Integer
    Dim mergeRange As Range
    Dim firstRowOfMerge As Integer
    
    lastrow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = 5 To lastrow
        Set mergeRange = Sheet2.Cells(i, 1).MergeArea
        firstRowOfMerge = mergeRange.Row
        
        ' 只处理合并区域的第一行，避免重复复制同一行
        If i = firstRowOfMerge Then
            erow = Sheet4.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
            
            ' 复制整行到Sheet4对应位置
            Sheet2.Rows(firstRowOfMerge).Copy Destination:=Sheet4.Rows(erow)
        End If
    Next i
    
    Application.CutCopyMode = False
End Sub

小知识点提醒 #

• 合并单元格的实际内容只存在于合并区域的左上角单元格，直接读取合并区域内其他单元格会返回空值
• 用MergeArea属性可以快速定位单元格所属的整个合并区域，方便判断和操作
• 处理合并单元格时一定要注意循环去重，不然会重复复制同一行数据

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