带合并单元格的VBA循环练习：编写脚本输出指定格式数据

问题说明 #

需要编写VBA脚本，通过循环提取表格数据并以Debug.Print输出指定格式（例如：can, kg, green, pea, 24.79），表格第一行存在合并单元格（颜色分类），现有代码处理合并单元格时出现异常。

修正后的代码 #

Sub ExtractTableData()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    
    Dim row As Long, col As Long
    Dim lastRow As Long, lastCol As Long
    Dim category As String, unit As String
    Dim color As String, item As String, value As Variant
    
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    lastCol = ws.Cells(2, ws.Columns.Count).End(xlToLeft).Column
    
    For row = 3 To lastRow
        category = ws.Cells(row, 1).Value
        unit = ws.Cells(row, 2).Value
        
        For col = 3 To lastCol
            ' 直接获取合并区域首单元格的值，无需额外判断是否合并
            color = ws.Cells(1, col).MergeArea.Cells(1, 1).Value
            item = ws.Cells(2, col).Value
            value = ws.Cells(row, col).Value
            
            If Not IsEmpty(value) Then
                Debug.Print category & ", " & unit & ", " & color & ", " & item & ", " & value
            End If
        Next col
    Next row
End Sub

核心修正与优化点 #

• 合并单元格处理简化：不管单元格是否合并，MergeArea.Cells(1,1)都会返回该区域的首单元格值，省去冗余的判断逻辑，避免遗漏合并区域的情况。
• 数据类型优化：将Integer替换为Long，避免Excel行数超过Integer上限（32767）时出现溢出错误。
• 工作表对象限定：获取行列数时加上ws.前缀，确保引用的是目标工作表的行列，避免激活其他工作表时出错。

代码运行逻辑 #

1. 先获取目标工作表的有效数据行数（第一列最后一行）和有效列数（第二行最后一列）。
2. 外层循环遍历数据行（从第3行开始，前两行为表头），提取每行的category和unit。
3. 内层循环遍历数据列，通过MergeArea获取合并的颜色分类值，提取item和对应数值。
4. 仅当数值不为空时，按指定格式输出到立即窗口。

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