使用VBA统计单元格相同的数据

解题思路解读：

（1）由于是判断一列里边四个单元格存在相同的数值，使用For……Next循环嵌套使用（执行一列时则获取四行的数据）。

（2）单元格里边含有逗号，得先用字符所在位置的函数（如：Instr）来判断逗号所在的位置，通过截取函数（如：Mid、Right）把数值截取出来，再寄存到另一个工作表上面并使用Countif函数统计相同的数据。

（3）为了避免出现空白的单元格，可以使用If函数进行判断，再决定是否执行后续的程序代码，以提高运行速度。

（4）有了初步的思路之后，逐步去编写程序，然后调试、校正。

打开Excel表格之后，按下【Alt+F11】组合键打开VBA编辑器。

在VBA编辑器的菜单栏上面点击【插入】、【模块】。

在模块的代码框里边输入以下VBA程序，然后按下【F5】键运行程序。

Sub InstrNumberCountif()

Dim c, h, i, j, k, k1, k3, k4

On Error Resume Next  '忽略运行过程中可能出现的错误

Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")  '定义Sheet1工作表

Set mysheet2 = ThisWorkbook.Worksheets("Sheet2")  '定义Sheet2工作表

mysheet1.Range(mysheet1.Cells(5, 1), mysheet1.Cells(5, 100)) = ""  '清空单元格里边的内容

For c = 1 To 100    '从第1列到第100列

 For h = 1 To 4     '从第1行到第4行

  If mysheet1.Cells(h, c) <> "" Then  '如果单元格不为空白，则执行

   k1 = 0   '每执行1行则初始化一次

   j = 0

    Do

     j = j + 1   'j是mysheet2的列，从第1列开始

     k = k1      'k用来存放上次k1的值

     k1 = InStr(k1 + 1, mysheet1.Cells(h, c), ",")   'k1为“,”所在的位置

      If k1 <> 0 Then

       mysheet2.Cells(h, j) = Mid(mysheet1.Cells(h, c), k + 1, k1 - k - 1)

       '把截取的字符填入mysheet2相应的单元格

      Else

       mysheet2.Cells(h, j) = Right(mysheet1.Cells(h, c), _

       Len(mysheet1.Cells(h, c)) - k)  '从右侧截取数字填入mysheet2相应的单元格

       Exit Do  '退出Do循环

      End If

     Loop

   End If

 Next

 For Each k3 In mysheet2.Range(mysheet2.Cells(1, 1), mysheet2.Cells(1, j))

 '对该单元格区域的每一个单元格执行一次

   k4 = Application.WorksheetFunction.CountIf(mysheet2.Range(mysheet2.Cells(1, 1), _

   mysheet2.Cells(4, j)), k3)  '统计同一数字在单元格里边出现的次数

    If mysheet1.Cells(5, c) = "" And k4 = 4 Then   '如果单元格为空白且个数为4

     mysheet1.Cells(5, c) = k3    '把k3的内容填入该单元格里边

    Else

     If mysheet1.Cells(5, c) <> "" And k4 = 4 Then '如果单元格不为空白且个数为4

      mysheet1.Cells(5, c) = mysheet1.Cells(5, c) & "," & k3 '在该单元格内容之后加","和k3的内容

     End If

    End If

 Next

 mysheet2.Range(mysheet2.Cells(1, 1), mysheet2.Cells(4, j)) = ""

Next

End Sub

回到工作表界面，将会看到程序的运行结果。

程序代码解析：

（1）Instr是查找指定字符串所在的位置，即：Instr(查找字符串的起始位置,查找的字符串,查找的字符)。在程序里边，查找的逗号（","）个数可能不确定，所以就使用变量（开始为1，之后在上一次基础递增1逐一去查询，在没有搜索到时则退出Do循环）。

（2）Mid是字符提取函数，即：Mid(要截取的字符串,截取字符串的起始位置,截取字符个数)。Mid截取的字符首先从1开始，之后从获取的逗号（","）的位置开始，截取是字符串则是在获取逗号（","）位置之前的字符，因此需要借助后面的Right函数截取最后一组数字。

（3）Right函数是从右侧开始截取字符串，即：Right(要截取的字符串,截取的字符串长度)。

（4）Len函数是获取单元格里边字符串的个数。

（5）Countif是用来查找存在相同元素的个数，即：Countif(查找的范围,查找的元素)。

（6）由于借用了Sheet2工作表，因此，该工作表不应该存在数据，以免被清除。