Question

excel中如何在B列内容重复的项中，把F列、G列、H列、I列数值合并后，得出不重复的结果？

例如：白变有两个，合并后成一个白变，表里留下一个白变，并且后四列数据相加。
数据表里。留下一个白变，





Answer 1

在工作表插入一命令按钮，并编程如下：

Private Sub CommandButton1_Click()

Dim i As Integer

For i = 2 To Range("B65536").End(xlUp).Row

  If Range("B" & i) = Range("B" & i - 1) Then

    Range("B" & i - 1) = ""

    Range("F" & i) = --Range("F" & i) + Range("F" & i - 1)

    Range("F" & i - 1) = ""

    Range("G" & i) = --Range("G" & i) + Range("G" & i - 1)

    Range("G" & i - 1) = ""

    Range("H" & i) = --Range("H" & i) + Range("H" & i - 1)

    Range("H" & i - 1) = ""

    Range("I" & i) = --Range("I" & i) + Range("I" & i - 1)

    Range("I" & i - 1) = ""

  End If

Next i

End Sub

运行结果：

追问

如何插入命令按钮呢？谢谢，另外能不能在原表中直接删除重复项，你上图中的空白格能否直接通过编程删除掉。因为。我截取的是总表中的一部分。另外的不重复的数据被隐藏了。如果按照你这样操作后，以前被帅选掉的数据就会丢失了

追答

 

点击ActiveX控件下面一行最左边的小长方形，屏幕出现一个“+”，按下鼠标左键，在屏幕上拖拉出一个长方形，双击该长方形，就可以编程了。

我现在做的正是在原表中直接删除重复项。我顾及到你在C、D、E列或其他隐藏列有有用的数据，故不敢删除空白行。你必须交代清楚具体要求，才能满足你的要求。

追问

原表里有16人，使用公式查出重复人名

然后我点筛选

筛选出重复的，现在我想把王树鱼后面E\F\J\H列数值合并，剩下一个王树鱼A\B\C\D列不变，王会文也一样，然后得到一个最后表

能否用公式直接达到最后的要求？

追答

在工作表插入一命令按钮，并编程如下：

Private Sub CommandButton1_Click()

Dim i As Integer

For i = 2 To Range("B65536").End(xlUp).Row

  If Range("B" & i) = Range("B" & i - 1) Then

    Range("F" & i) = --Range("F" & i) + Range("F" & i - 1)

    Range("G" & i) = --Range("G" & i) + Range("G" & i - 1)

    Range("H" & i) = --Range("H" & i) + Range("H" & i - 1)

    Range("I" & i) = --Range("I" & i) + Range("I" & i - 1)

    Range(i - 1 & ":" & i - 1).Delete (xlUp)

  End If

Next i

Range(Range("B65536").End(xlUp).Row + 1 & ":" & Range("F65536").End(xlUp).Row + 1).ClearContents

End Sub

运算结果：

追问

这样得到的结果，会不会影响原表里的隐藏内容呢？

追答

隐藏内容中有需要累加的，则使用类似Range("F" & i) = --Range("F" & i) + Range("F" & i - 1)的程序语句，性别、身份证号码、出生日期等应该没有问题。

追问

能否加下我的QQ245009838，谢谢

Answer 2

你把B列排好序，用分类汇总把，这样B列会多两个字”白变 汇总“，这样可以在原表完成。不然只能通过透视表的方式实现

追问

如何操作。能详细点吗？谢谢

Answer 3

这个用数据透视表很快，插入数据透视表后把姓名拖入行标签，其他拖入数据汇总栏即可。

追问

我需要的不是这个功能。我需要的是在原表里保留“白变”且后面四列数据求和。

追答

数据透视表可以实现你想要的结果