excel vba 求大神给写一段代码，找出相同的单元格，填充底色，并汇总出来

Question

求大神给写一段代码，找出相同的单元格，填充底色，并汇总出来

Answer 1

以下是一段 Excel VBA 代码，用于找出相同单元格，填充底色并汇总结果。假设您的数据位于 A1 到 C3 区域，您可以根据实际需要修改范围。
```vba
Sub FindSameCellsAndFill()
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range
Dim color As Integer
' 设置查找范围
Set ws = ThisWorkbook.Worksheets("Sheet1")
Set rng = ws.Range("A1:C3")
' 设置查找相同的单元格颜色
color = 63566
' 遍历范围中的每个单元格
For Each cell In rng
' 检查当前单元格与上一个单元格的值是否相同
If cell.Value = cell.Offset(0, -1).Value Then
' 填充底色
cell.Interior.Color = color
End If
Next cell
' 显示找到的相同单元格数量
MsgBox "找到 " & rng.Count - rng.Cells.SpecialCells(xlCellTypeBlank).Count & " 个相同单元格。", vbInformation
' 汇总相同单元格的数据
Dim sum As Long
sum = 0
For Each cell In rng
If cell.Value <> "" Then
sum = sum + cell.Value
End If
Next cell
' 显示汇总结果
MsgBox "相同单元格的汇总结果为： " & sum & " ", vbInformation
End Sub
```
这段代码首先查找并填充相同单元格的底色，然后汇总这些单元格中的数据。完成后，会弹出两个消息框，分别显示找到的相同单元格数量和汇总结果。
请注意，在运行此代码之前，请确保您的 Excel 工作表中已包含要查找相同单元格的数据。此外，您可以根据实际需求修改代码中的范围、颜色和汇总方式。
如果您在运行代码时遇到问题，请随时提问，我会尽力帮助您解决问题。祝您使用愉快！

Answer 2

解题思路应该是这样的：
1、 首先遍历所有菜名，编入数组name
2、 对name的每个元素name(i)，生成一个数组namespread(i)，namespread(i)的构成是：2重循环，外层是“3<=m<=Len(name(i))”，内层是“遍历name(i)的每一个起始位置的前m字符子串”，这两重循环构造的所有子串，作为元素插入构成数组namespread(i)
3、对namespread(i)的每个元素namespread(i)(k)，遍历除name(i)以外的其他所有name元素，如果name符合“\\S*"&namespread(i)(k)&"\\S*”正则匹配句型，则记录其所属name(i)单元格编入数组result
4、遍历result所有记录的单元格，标定颜色