两个财务报表的excel，怎样合并相同数据

Posted 2023-05-17

内容都是相同的，只是数据不同，求大神解答

   在主工作表上选择左上角的单元格，以确定范围。



  利用“合并”命令访问数据合并选项。



 引用各工作簿副本必须进行合并的范围。



规定主工作簿是否必须使用来自工作簿副本的行和列标签。



 选择能创建源数据链接的选项。



当然，还有其它合并的方式，比如进行合并计算的方式。把公式编辑在公式栏里，或者是使用合并求和的方式，就可以合并计算了。

参考技术A 合并的条件是什么？两张表中对应的年份的数据信息相加？
如果是这样的话。新建一个表格。然后将上面两个表格的数据分布复制到新表中的表1页和表2页。再在表3页复制一个表格的框架。然后在09-12年的第一行数据中分布输入下面的函数：
09年的第一个单元格，假设为b2

=VLOOKUP(a2,表1!$A:$E,2,1)+VLOOKUP(a2,表2!$A:$E,2,1)
10年的
=VLOOKUP(a2,表1!$A:$E,3,1)+VLOOKUP(a2,表2!$A:$E,3,1)
11年的
=VLOOKUP(a2,表1!$A:$E,4,1)+VLOOKUP(a2,表2!$A:$E,4,1)
12年的
=VLOOKUP(a2,表1!$A:$E,5,1)+VLOOKUP(a2,表2!$A:$E,5,1)
然后将这4个单元格往下拉就ok了。

12年数据后的3列数据，应该是有特定函数的。你直接拷原先文档中的函数就好了。追问

大神 要不我发过来你帮我弄好不？我实在手笨啊

追答

[e-mail]

本回答被提问者采纳 参考技术B 直接加起来不就行了吗？

DBGrid相同数据合并成一个格[最好用Delphi回答]

最近遇到一个软件:
DBGrid控件显示列的时候,其相同值合并为一个值显示
界面很美观;
即:
在一列中,如果遇到相同值时,便合并为一个单元格
跟Excel中的功能差不多,我想问一问哪位计算机程序高手告诉我这个问题;
谢谢
我不是希望在Excel中显示合并单元格
而是用界面控件直接显示

另外:请bugmenot同志详细说明一下ehlib到底用哪个版本的?怎样安装?安装后怎样使用?附原代码哦
感谢各位:如果帮我解决这个问题,分值再加

A 1 1
A 1 2
A 1 3
B 1 1
B 2 2
B 2 3

显示为:

A 1 1
-----2
-----3
B 1 1
---2 2
-----3
其中'-'为空格
谢谢各位

时间关系,无法写具体控件,以下对你有帮助:

☆☆ 本过程能够将TDBGridEh的多层表头导出到Excel中，并且还能够将给定字段的相同的值合并一起，例如：

(本地抄袭者死!早晨一则精华被抄骗得300分,郁闷!)

procedure BatchDBGridEhDataToExcel(DBGrid:TDBGridEh;Title:string;DrawGridLine:Boolean;
RangeFields:TStringList);

该过程将TDBGridEh中的数据导出到Excel中。本过程能够将TDBGridEh的多层表头导出到Excel中，并且还能够将给定字段的相同的值合并一起，例如：

参数：

DBGrid:TDBGridEh为要导出数据的网格控件，Title为报表的标题，DrawGridLine控制是否绘制网格线，RangeFields为需要合并数据的字段列表。

在“打印”按钮的OnClick事件中填写如下代码：

var
RangeFields:TStringList;
begin
file://true为绘制网格线//
RangeFields:=TStringList.Create;
RangeFields.Add('TJDWMC');
try
if RadioButton1.Checked then
BatchDBGridEhDataToExcel(DBGrid_JTGS,Caption,true,RangeFields)
else
BatchDBGridEhDataToExcel(DBGrid_LYJ,Caption,true,RangeFields);
finally
RangeFields.Free;
end;
end;

执行后启动Excel程序，显示界面如下所示：

注意：在合并网格时会出现是“否合并网格”对话框，请电击“是”即可。

需要声明的常量：

const
file://Excel用到的常量//
xlHairline = ＄00000001;
xlMedium = ＄FFFFEFD6;
xlThick = ＄00000004;
xlThin = ＄00000002;
const
file://Excel用到的常量//
xlContinuous = ＄00000001;
xlDash = ＄FFFFEFED;
xlDashDot = ＄00000004;
xlDashDotDot = ＄00000005;
xlDot = ＄FFFFEFEA;
xlDouble = ＄FFFFEFE9;
xlSlantDashDot = ＄0000000D;
xlLineStyleNone = ＄FFFFEFD2;
const
xlAll = ＄FFFFEFF8;
xlAutomatic = ＄FFFFEFF7;
xlBoth = ＄00000001;
xlCenter = ＄FFFFEFF4;
xlChecker = ＄00000009;
xlCircle = ＄00000008;
xlCorner = ＄00000002;
xlCrissCross = ＄00000010;
xlCross = ＄00000004;
xlDiamond = ＄00000002;
xlDistributed = ＄FFFFEFEB;
xlDoubleAccounting = ＄00000005;
xlFixedValue = ＄00000001;
xlFormats = ＄FFFFEFE6;
xlGray16 = ＄00000011;
xlGray8 = ＄00000012;
xlGrid = ＄0000000F;
xlHigh = ＄FFFFEFE1;
xlInside = ＄00000002;
xlJustify = ＄FFFFEFDE;
xlLightDown = ＄0000000D;
xlLightHorizontal = ＄0000000B;
xlLightUp = ＄0000000E;
xlLightVertical = ＄0000000C;
xlLow = ＄FFFFEFDA;
xlManual = ＄FFFFEFD9;
xlMinusValues = ＄00000003;
xlModule = ＄FFFFEFD3;
xlNextToAxis = ＄00000004;
xlNone = ＄FFFFEFD2;
xlNotes = ＄FFFFEFD0;
xlOff = ＄FFFFEFCE;
xlOn = ＄00000001;
xlPercent = ＄00000002;
xlPlus = ＄00000009;
xlPlusValues = ＄00000002;
xlSemiGray75 = ＄0000000A;
xlShowLabel = ＄00000004;
xlShowLabelAndPercent = ＄00000005;
xlShowPercent = ＄00000003;
xlShowValue = ＄00000002;
xlSimple = ＄FFFFEFC6;
xlSingle = ＄00000002;
xlSingleAccounting = ＄00000004;
xlSolid = ＄00000001;
xlSquare = ＄00000001;
xlStar = ＄00000005;
xlStError = ＄00000004;
xlToolbarButton = ＄00000002;
xlTriangle = ＄00000003;
xlGray25 = ＄FFFFEFE4;
xlGray50 = ＄FFFFEFE3;
xlGray75 = ＄FFFFEFE2;
xlBottom = ＄FFFFEFF5;
xlLeft = ＄FFFFEFDD;
xlRight = ＄FFFFEFC8;
xlTop = ＄FFFFEFC0;
xl3DBar = ＄FFFFEFFD;
xl3DSurface = ＄FFFFEFF9;
xlBar = ＄00000002;
xlColumn = ＄00000003;
xlCombination = ＄FFFFEFF1;
xlCustom = ＄FFFFEFEE;
xlDefaultAutoFormat = ＄FFFFFFFF;
xlMaximum = ＄00000002;
xlMinimum = ＄00000004;
xlOpaque = ＄00000003;
xlTransparent = ＄00000002;
xlBidi = ＄FFFFEC78;
xlLatin = ＄FFFFEC77;
xlContext = ＄FFFFEC76;
xlLTR = ＄FFFFEC75;
xlRTL = ＄FFFFEC74;
xlFullScript = ＄00000001;
xlPartialScript = ＄00000002;
xlMixedScript = ＄00000003;
xlMixedAuthorizedScript = ＄00000004;
xlVisualCursor = ＄00000002;
xlLogicalCursor = ＄00000001;
xlSystem = ＄00000001;
xlPartial = ＄00000003;
xlHindiNumerals = ＄00000003;
xlBidiCalendar = ＄00000003;
xlGregorian = ＄00000002;
xlComplete = ＄00000004;
xlScale = ＄00000003;
xlClosed = ＄00000003;
xlColor1 = ＄00000007;
xlColor2 = ＄00000008;
xlColor3 = ＄00000009;
xlConstants = ＄00000002;
xlContents = ＄00000002;
xlBelow = ＄00000001;
xlCascade = ＄00000007;
xlCenterAcrossSelection = ＄00000007;
xlChart4 = ＄00000002;
xlChartSeries = ＄00000011;
xlChartShort = ＄00000006;
xlChartTitles = ＄00000012;
xlClassic1 = ＄00000001;
xlClassic2 = ＄00000002;
xlClassic3 = ＄00000003;
xl3DEffects1 = ＄0000000D;
xl3DEffects2 = ＄0000000E;
xlAbove = ＄00000000;
xlAccounting1 = ＄00000004;
xlAccounting2 = ＄00000005;
xlAccounting3 = ＄00000006;
xlAccounting4 = ＄00000011;
xlAdd = ＄00000002;
xlDebugCodePane = ＄0000000D;
xlDesktop = ＄00000009;
xlDirect = ＄00000001;
xlDivide = ＄00000005;
xlDoubleClosed = ＄00000005;
xlDoubleOpen = ＄00000004;
xlDoubleQuote = ＄00000001;
xlEntireChart = ＄00000014;
xlExcelMenus = ＄00000001;
xlExtended = ＄00000003;
xlFill = ＄00000005;
xlFirst = ＄00000000;
xlFloating = ＄00000005;
xlFormula = ＄00000005;
xlGeneral = ＄00000001;
xlGridline = ＄00000016;
xlIcons = ＄00000001;
xlImmediatePane = ＄0000000C;
xlInteger = ＄00000002;
xlLast = ＄00000001;
xlLastCell = ＄0000000B;
xlList1 = ＄0000000A;
xlList2 = ＄0000000B;
xlList3 = ＄0000000C;
xlLocalFormat1 = ＄0000000F;
xlLocalFormat2 = ＄00000010;
xlLong = ＄00000003;
xlLotusHelp = ＄00000002;
xlMacrosheetCell = ＄00000007;
xlMixed = ＄00000002;
xlMultiply = ＄00000004;
xlNarrow = ＄00000001;
xlNoDocuments = ＄00000003;
xlOpen = ＄00000002;
xlOutside = ＄00000003;
xlReference = ＄00000004;
xlSemiautomatic = ＄00000002;
xlShort = ＄00000001;
xlSingleQuote = ＄00000002;
xlStrict = ＄00000002;
xlSubtract = ＄00000003;
xlTextBox = ＄00000010;
xlTiled = ＄00000001;
xlTitleBar = ＄00000008;
xlToolbar = ＄00000001;
xlVisible = ＄0000000C;
xlWatchPane = ＄0000000B;
xlWide = ＄00000003;
xlWorkbookTab = ＄00000006;
xlWorksheet4 = ＄00000001;
xlWorksheetCell = ＄00000003;
xlWorksheetShort = ＄00000005;
xlAllExceptBorders = ＄00000006;
xlLeftToRight = ＄00000002;
xlTopToBottom = ＄00000001;
xlVeryHidden = ＄00000002;
xlDrawingObject = ＄0000000E;
const

The list of VtFont styles

FontStyleConstants

VtFontStyleBold = 1;
VtFontStyleItalic = 2;
VtFontStyleOutline = 4;

The list of VtFont effects

FontEffectsConstants

VtFontEffectStrikeThrough = 256;
VtFontEffectUnderline = 512;

-------------------------------------------------------------------------------------------------------

procedure SetTitleInExcel(Sheet:OleVariant;
FirstRow,FirstCol,LastRow,LastCol:integer;Title:string);
var
RangeStr:string;
Range:Variant;
begin
Sheet.Activate;
RangeStr:=GetRangStr(FirstRow,FirstCol,LastRow,LastCol);
Range:=Sheet.Range[RangeStr];
Range.Merge(true);
Range.Font.Size:=14;
Range.Font.Name:='黑体';
Range.Font.FontStyle:=VtFontStyleBold;
Range.HorizontalAlignment := xlCenter;
Range.VerticalAlignment := xlCenter;
Range.Value:=Title;
end;

function GetRangStr(FirstRow,FirstCol,LastRow,LastCol:integer):string;
var
iA,iB:integer;
begin
result:=';
if (FirstRow<1)or(LastRow<1)or(LastRow<1)or(LastCol<1) then
Exit;

iA:=FirstCol div 26;
iB:=FirstCol mod 26;
if iB=0 then
begin
iA:=iA-1;
iB:=26;
end;

if iA=0 then
result:=Chr(Ord('A')+iB-1)+IntToStr(FirstRow)+':'
else
result:=Chr(Ord('A')+iA-1)+Chr(Ord('A')+iB-1)+IntToStr(FirstRow)+':';

iA:=LastCol div 26;
iB:=LastCol mod 26;
if iB=0 then
begin
iA:=iA-1;
iB:=26;
end;

if iA=0 then
result:=result+Chr(Ord('A')+iB-1)+IntToStr(LastRow)
else
result:=result+Chr(Ord('A')+iA-1)+Chr(Ord('A')+iB-1)+IntToStr(LastRow);
end;

procedure DrawGridInExcel(Sheet:OleVariant;
FirstRow,FirstCol,LastRow,LastCol:integer);
var
RangeStr:string;
Range:Variant;
begin
Sheet.Activate;
RangeStr:=GetRangStr(FirstRow,FirstCol,LastRow,LastCol);
Range:=Sheet.Range[RangeStr];
Range.Columns.Interior.ColorIndex:=0;
Range.Borders.LineStyle:=xlHairline;
Range.Font.Size:=8;
Range.Font.Name:='楷体_GB2312';
end;

procedure TransMuiltTitleStr(Text: string;List:TStrings);
var
str:string;
Index:integer;
begin
str:=Text;
List.Clear;
Index:=Pos('|',str);
while Index>0 do
begin
List.Add(Copy(str,1,Index-1));
str:=Copy(str,Index+1,Length(str)-Index);
Index:=Pos('|',str);
end;
if Index=0 then
List.Add(str);
end;

Function My_DataSetToExcelSheet(DataSet:TDataSet;m_Fields:tstringlist;Sheet:OleVariant;
RangeFields:TStrings;DrawGridLine:Boolean;var FirstRow,FirstCol:integer): Boolean;
var
DataFirstRow,Row,Col,i,j :Integer;
BK:TBookMark;
LastValue,CurrentValue:string;
RangeStr:string;
Range:Variant;
RangeFirstRow,RangeFirstCol:integer;
List:TStringList; file://用于存储复合标题各个行的字符串列表//
MaxTVCount:integer;//标题最大纵向行数//
begin
Result := False;
if not Dataset.Active then exit;
BK:=DataSet.GetBookMark;
DataSet.DisableControls;
Sheet.Activate;
try
file://定制复杂列标题//
MaxTVCount:=0;
List:=TStringList.Create;
try
Col:=FirstCol;
for i:=0 to m_Fields.Count-1 do
begin
Row:=FirstRow;

TransMuiltTitleStr(DataSet.FieldByName(m_Fields.Strings[i]).DisplayLabel,List);
if List.Count>MaxTVCount then
MaxTVCount:=List.Count;

for j:=0 to List.Count-1 do
begin
Sheet.Cells(Row,Col) :=List.Strings[j];
Inc(Row);
end;

Inc(Col);
end;
finally
List.Free;
end;

file://绘制网格//
if DrawGridLine then
begin
DrawGridInExcel(Sheet,FirstRow,1,FirstRow+DataSet.RecordCount+MaxTVCount-1,
m_Fields.Count);
end;
file://横向合并标题网格//
for i:=FirstRow to FirstRow+MaxTVCount-1 do
begin
file://记录当前行//
Row:=i;
file://如果列数大于零则计算//
if m_Fields.Count>0 then
begin
RangeFirstCol:=1;
LastValue:=Sheet.Cells.Item[Row,RangeFirstCol];

for j:=2 to m_Fields.Count do
begin
CurrentValue:=Sheet.Cells.Item[Row,j];
if CurrentValue<>LastValue then
begin
file://合并单元格//
if LastValue<>' then
begin
RangeStr:=GetRangStr(Row,RangeFirstCol,Row,j-1);
Range:=Sheet.Range[RangeStr];
file://Range.Merge(false);
Range.mergecells:=true;
Range.WrapText:=true;
Range.HorizontalAlignment := xlCenter;
Range.VerticalAlignment := xlCenter;
Range.Value:=LastValue;
end;

RangeFirstCol:=j;
LastValue:=Sheet.Cells.Item[Row,RangeFirstCol];
end;
end;
file://合并单元格//
if LastValue<>' then
begin
RangeStr:=GetRangStr(Row,RangeFirstCol,Row,m_Fields.Count);
Range:=Sheet.Range[RangeStr];
// Range.Merge(false);
Range.mergecells:=true;
Range.WrapText:=true;
Range.HorizontalAlignment := xlCenter;
Range.VerticalAlignment := xlCenter;
Range.Value:=LastValue;
end;

RangeFirstCol:=m_Fields.Count+1;
LastValue:=Sheet.Cells.Item[Row,RangeFirstCol];
end;
end;
file://纵向合并标题网格,将纵向最后一个不为空值的格与其下面所有空格合并到一起//
if MaxTVCount>1 then
for i:=1 to m_Fields.Count do
for j:=FirstRow+MaxTVCount-1 downto FirstRow do
begin
CurrentValue:=Sheet.Cells.Item[j,i];
if CurrentValue<>' then
begin
if j<>FirstRow+MaxTVCount-1 then
begin
file://合并单元格//
RangeStr:=GetRangStr(j,i,FirstRow+MaxTVCount-1,i);
Range:=Sheet.Range[RangeStr];
Range.Merge(false);
Range.WrapText:=true;
Range.HorizontalAlignment := xlCenter;
Range.VerticalAlignment := xlCenter;
Range.Value:=CurrentValue;
end;
Break;
end;
end;

file://数据的第一条的索引号//
DataFirstRow:=FirstRow+MaxTVCount;

Row:=DataFirstRow;

file://填写表格内容//
DataSet.First;
while Not DataSet.Eof do
begin
Col:=1;

for i:=0 to m_Fields.count-1 do
begin
Sheet.Cells(Row,Col):=DataSet.FieldByName(m_Fields.Strings[i]).AsString;
Inc(Col);
end;

Row:=Row+1;

DataSet.Next;
end;

if m_Fields.count>0 then
Col:=Col-1;

file://合并项目字段的值//
for i:=0 to RangeFields.Count-1 do
begin
Col:=m_Fields.IndexOf(RangeFields.Strings[i])+1;
if DataSet.RecordCount>0 then
begin
RangeFirstRow:=DataFirstRow;
LastValue:=Sheet.Cells.Item[RangeFirstRow,Col];

for j:=1 to DataSet.RecordCount-1 do
begin
CurrentValue:=Sheet.Cells.Item[DataFirstRow+j,Col];
if CurrentValue<>LastValue then
begin
file://合并单元格//
RangeStr:=GetRangStr(RangeFirstRow,Col,DataFirstRow+j-1,Col);
Range:=Sheet.Range[RangeStr];
Range.Merge(false);
Range.WrapText:=true;
Range.HorizontalAlignment := xlCenter;
Range.VerticalAlignment := xlCenter;
Range.Value:=LastValue;

RangeFirstRow:=DataFirstRow+j;
LastValue:=Sheet.Cells.Item[RangeFirstRow,Col];
end;
end;
file://合并单元格//
RangeStr:=GetRangStr(RangeFirstRow,Col,DataFirstRow+DataSet.RecordCount-1,Col);
Range:=Sheet.Range[RangeStr];
Range.Merge(false);
Range.WrapText:=true;
Range.HorizontalAlignment := xlCenter;
Range.VerticalAlignment := xlCenter;
Range.Value:=LastValue;

RangeFirstRow:=DataFirstRow+DataSet.RecordCount;
LastValue:=Sheet.Cells.Item[RangeFirstRow,Col];
end;
end;

Result := True;
finally
DataSet.GotoBookMark(BK);
DataSet.EnableControls;
end;
end;

procedure BatchDBGridEhDataToExcel(DBGrid:TDBGridEh;Title:string;DrawGridLine:Boolean;
RangeFields:TStringList);
var
s:tstringlist;
i:integer;
begin
if not DBGrid.DataSource.DataSet.active then
begin
MessageDlg('主结果集没有打开！',mtWarning,[mbok],0);
exit;
end;
s:=tstringlist.create;
try
for i:=0 to DBGrid.Columns.Count-1 do
begin
s.Add(DBGrid.Columns[i].FieldName);
DBGrid.DataSource.DataSet.FieldByName(
DBGrid.Columns[i].FieldName).DisplayLabel:=
DBGrid.Columns[i].Title.Caption;
end;
My_DataSetToExcel(DBGrid.DataSource.DataSet,s,RangeFields,DrawGridLine,true,
Title,');
finally
s.free;
end;
end; 参考技术A http://www.china-askpro.com/vbasic23.shtml
(vb相关的专家网站,站长会很乐意解答你的疑问)
例如:

表单的TCURRENCY类型，如何选择货币种类

如何使Tstringgrid中的数字都靠右

如何给DBGRID中特殊的字段赋予不同的颜色

TStringGrid中的单元格，如何用程序语句取值和赋值

出错提示为"IDEX IS READ ONLY"

TStringGrid控件在一个单元失去焦点时作出事件响应

如何设置DBGrid的ScrollBar状态

如何在数据网格(DBGrid)中插入其他的可视控件

如何锁定Delphi的DBGRID的列 参考技术B 表单的TCURRENCY类型，如何选择货币种类

如何使Tstringgrid中的数字都靠右

如何给DBGRID中特殊的字段赋予不同的颜色

TStringGrid中的单元格，如何用程序语句取值和赋值

出错提示为"IDEX IS READ ONLY"

TStringGrid控件在一个单元失去焦点时作出事件响应

如何设置DBGrid的ScrollBar状态

如何在数据网格(DBGrid)中插入其他的可视控件

如何锁定Delphi的DBGRID的列 参考技术C 其实最好用sql来解决.反正delphi也可以调用的

用group by就可以 参考技术D 你的问题我没看明白不过看上去应该是不难!

名称 名称 名称
A 1 2
B 1 2
C 1 6
D 2 7

你要的显示是什么样的呢?

------------------------------------------------

我认为把下面的掩盖住就可以啦
用 DrawDataCell事件+TDBGrid(Sender).Canvas.FillRect(Rect);
对比是否跟上一个数据相同然后 掩盖,HOHO~

------------------------------------------------
无聊再说两句,这样做真的美观吗?我怎么就没看出
来美在哪里呢?呵呵 :) 第5个回答  2006-03-06 ehlib这个控件支持。