按行汇总分类列中不固定数据
在模块中执行
Sub test()Dim i, j, x For i = 3 To Range("a65536").End(xlUp).Row For j = 2 To Range("XFD2").End(xlToLeft).Column - Range("XFD2").End(xlToLeft).MergeArea.Count + 1 x = Cells(1, j).MergeArea.Count Cells(i, j + x - 1) = Application.WorksheetFunction.Sum(Range(Cells(i, j), Cells(i, j + x - 2))) j = j + x - 1 Next Next End Sub 在sheet1对象中执行如下事件，当表格内容发生变化的时候，自动执行模块中的代码 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row > 1 Then Call test End If End Sub