广联达预算软件中怎样合并报表,谢谢!

合并会数值会有变化,怎样合并才能跟原来2个报表相加的结果一致?谢谢

第1个回答  2013-09-15
EXCEL:一个工作薄中多个工作表合并代码在EXCEL中打开宏,将下列代码进行粘贴并保存。然后返回你需要合并的工作表中,运行此宏,看看效果吧。Sub 合并sheets() n = 12 '源表个数,根据需要修改! nstart = 9 '每个单表数据的开始行数,根据需要修改! k = nstart '目标表的行标 For i = 1 To n irow = nstart '行标 While Sheets(i).Cells(irow + 1, 2) <> "" '后面个1以第2列数据的最后1行是空作为行结束标示,确定源表的行数,根据需要修改! irow = irow + 1 Wend Sheets(i).Rows(nstart & ":" & irow).Copy '复制源数据行 Sheets(n + 1).Activate Sheets(n + 1).Cells(k, 1).Select ActiveSheet.Paste '粘贴数据 k = k + irow - nstart + 1 Next iEnd Sub
相似回答