EXCEL数据合并问题

假设单元格A1有数据3.4.7.9另一单元格B1有数据4.6.7.11怎样求出A1与B1合并后的数据3.4.6.7.9.11（不能重复数）

就是统计一共有多少个数据（不包含重复）

你将A、B列都复制到一起（随便一列比如C列）

使用数据透视表，对C列进行数据统计，就可以把重复数据留一个，其他的保存。

设数据如图:

"C1"单元格公式为:

=LEFt(A1,FIND(".",A1)-1)*1

"D1"单元格公式为:

=MId(A1,FIND(".",A1)+1,FIND(".",A1,FIND(".",A1)+1)-FIND(".",A1)-1)*1

"E1"单元格公式为:

=MId(A1,FIND(".",A1,FIND(".",A1)+1)+1,FIND(".",A1,FIND(".",A1,FIND(".",A1)+1)+1)-FIND(".",A1,FIND(".",A1)+1)-1)*1

"F1"单元格公式为:

=RIGHt(A1,LEN(A1)-FIND(".",A1,FIND(".",A1,FIND(".",A1)+1)+1))*1

"G1"单元格公式为:

=LEFt(B1,FIND(".",B1)-1)*1

"H1"单元格公式为:

=MId(B1,FIND(".",B1)+1,FIND(".",B1,FIND(".",B1)+1)-FIND(".",B1)-1)*1

"I1"单元格公式为:

=MId(B1,FIND(".",B1,FIND(".",B1)+1)+1,FIND(".",B1,FIND(".",B1,FIND(".",B1)+1)+1)-FIND(".",B1,FIND(".",B1)+1)-1)*1

"J1"单元格公式为:

=RIGHt(B1,LEN(B1)-FIND(".",B1,FIND(".",B1,FIND(".",B1)+1)+1))*1

"K1"单元格公式为:

=IF(A1="","",MIN(C1:J1)&IF(SMALL(C1:J1,2)=SMALL(C1:J1,1),"","."&SMALL(C1:J1,2))&IF(SMALL(C1:J1,3)=SMALL(C1:J1,2),"","."&SMALL(C1:J1,3))&IF(SMALL(C1:J1,4)=SMALL(C1:J1,3),"","."&SMALL(C1:J1,4))&IF(SMALL(C1:J1,5)=SMALL(C1:J1,4),"","."&SMALL(C1:J1,5))&IF(SMALL(C1:J1,6)=SMALL(C1:J1,5),"","."&SMALL(C1:J1,6))&IF(SMALL(C1:J1,7)=SMALL(C1:J1,6),"","."&SMALL(C1:J1,7))&IF(SMALL(C1:J1,8)=SMALL(C1:J1,7),"","."&SMALL(C1:J1,8)))

将上述公式复制后粘贴过去地,选中公式区域,对准右下角,光标成"+"状时双击(或拖下去)即可.

同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码： Sub testt() Application.ScreenUpdating = False Dim x, x1, x2 As String Dim i, j As Byte x1 = Range("A1") x2 = Range("B1") i = Len(x1) - Len(Replace(x1, ".", "")) j = Len(x2) - Len(Replace(x2, ".", "")) Workbooks.Add Range("A1") = x1 Range("C1") = x2 Range("A3") = "=FIND(""."",$A$1&""."",A2+1)" Range("B3") = "=--MId($A$1,A2+1,A3-A2-1)" Range("A3:B3").Select Selection.AutoFill Destination:=Range("A3:B" & i + 3) Range("B3:B" & i + 3).Copy Range("B3").PasteSpecial xlPasteValues Range("C3") = "=FIND(""."",$C$1&""."",C2+1)" Range("D3") = "=--MId($C$1,C2+1,C3-C2-1)" Range("C3:D3").Select Selection.AutoFill Destination:=Range("C3:D" & j + 3) Range("D3:D" & j + 3).Copy Range("B" & i + 4).PasteSpecial xlPasteValues Range("B3:B" & i + j + 4).Sort Key1:=Range("B3"), Header:=xlNo x = Range("B3") For i = 4 To i + j + 4 If Cells(i, 2) <> Cells(i - 1, 2) Then x = x & "." & Cells(i, 2) Next i ActiveWorkbook.Close 0 ThisWorkbook.Activate Range("C1") = x Application.ScreenUpdating = True End Sub 回到Excel中，在A1、B1输入数据后，点菜单的工具，宏，运行testt，C1出来你要的。