Sub 合併單元格自動求和()Application.ScreenUpdating = Falsej = Range("F" & Rows.Count).End(3).RowRange("G3:G" & j).UnMergeRange("G3:G" & j).ClearContentsn = Range("F3")m = 3For i = 4 To j If Range("B" & i) = "" Then n = n + Range("F" & i) Else Range("G" & i - 1) = IIf(n = 0, "", n) If m < i - 1 Then Range("G" & m & ":G" & i - 1).Merge n = Range("F" & i) m = i End IfNextRange("G" & i - 1) = IIf(n = 0, "", n)If m < i - 1 Then Range("G" & m & ":G" & i - 1).MergeApplication.ScreenUpdating = TrueEnd Sub