作者：乔山办公网日期：
返回目录：excel表格制作
1、使用excel将我们zhidao的表格文件打开，然后选择人名并单击鼠标右键在右键菜单哪里找到复制选项
2、点击复制之后再选择单元格，并单击鼠标右键找到粘贴选项，粘贴之后再在数据里找到删除重复项内选项
3、输入好参数之后按下回车键我们就得到了计算的结果了
4、选择计算的结果将鼠标放到容右下角然后向下拖动我们就将所有的结果都计算出来了
Public Sub 顺序抄合并袭内容相同百单元度()
Dim CXrng As Range, Rng As Range, i As Long
Set Rng = Sheets("sheet2").Range("A1")
For Each CXrng In Sheets("Sheet1").Range("A1:A" & Sheets("Sheet1").Range("A65536").End(xlUp).Row)
If CXrng.Value <> Rng.Value Then
If i <> 0 Then Rng.Resize(i, 1).Merge
Set Rng = Sheets("sheet2").Range("A" & CXrng.Row)
Rng.Value = CXrng.Value
i = 1
Else
i = i + 1
End If
Next
If i <> 0 Then Rng.Resize(i, 1).Merge
End Sub
44444455555559999992222222222222222222
这一段数字是在几个单元格里啊？
还有合并的时候，仅仅保zd留一个数专字，还是把相同数字组合到一起，放到单元属格里呢
简单就是for循环，从右到左进行遍历，只要相邻单元格里的值一样，那么就合并
（将合并单元格中的数据也合并）
比如这是你要合并两个单元格里的数据,做法如下
A B C
255 8146
在C1单元格里输入=A1&""&B1
注意,在两个双引号里不能有空格,否则就会变成 255 8146
（多元合并，且保留多元数据）
Sub 合并同类项()
If Selection.Columns.Count > 1 Then MsgBox "只能对单列操作，请重新选择7a686964616fe58685e5aeb9339区域!": Exit Sub
Selection.Offset(0, 1).EntireColumn.Insert
With Selection
For i = .Cells.Count To 2 Step -1
If .Cells(i) = .Cells(i - 1) Then Range(.Cells(i).Offset(0, 1), .Cells(i - 1).Offset(0, 1)).Merge
Next
Selection.Offset(0, 1).Copy
.PasteSpecial xlPasteFormats
.Offset(0, 1).EntireColumn.Delete
End With
End Sub
3、