主题：[求助] 有关报关输出汇总问题

50楼的实例我测试没有问题。如果代码完全看不懂，先去学学基础吧：http://www.foxtable.com/webhelp/scr/1592.htm

If sheet(i,9).text <> sheet(i-1,9).text
        If i > idx +1
            For j As Integer = idx+1 To i-1
                'msgbox(j & " " & idx & " " & i)
                sheet(j, 13).value = 0
            Next

            Sheet.MergeCell(idx,9,i-idx,1)
            Sheet.MergeCell(idx,10,i-idx,1)
            Sheet.MergeCell(idx,11,i-idx,1)
            Sheet.MergeCell(idx,12,i-idx,1)
            Sheet.MergeCell(idx,13,i-idx,1)
        End If
        idx = i
    End If