统计名字在同一区域内在连续相邻列中出现的次数并标注（已解决，正解在3楼）

jx928867128 · 发表于 2023-3-2 09:34

本帖最后由 jx928867128 于 2023-3-18 08:54 编辑

jx928867128 · 发表于 2023-3-2 11:35

请各位路的朋友帮忙看下

半百 · 发表于 2023-3-2 13:11

试试看，如果同一列没有重复的话。

mp3_2004 · 发表于 2023-3-2 17:11

半百发表于 2023-3-2 13:11
试试看，如果同一列没有重复的话。

他这个同一列绝对是有重复名字的，所以他的问题没说清楚，如果同一列重复了，那这个字典就不好解决

jx928867128 · 发表于 2023-3-2 18:28

半百发表于 2023-3-2 13:11
试试看，如果同一列没有重复的话。

十分感谢老师的出手帮忙，太感谢您了，同一列中不会有重复的

简七 · 发表于 2023-3-2 18:31

Option Explicit
Sub demo()
Dim area As Range
Set area = Worksheets("样表").Range("b8:j30000")
Dim nameDic As Object, temp, i#, count#, tempRange As Range
Set nameDic = CreateObject("scripting.dictionary")
For Each temp In area.Value
If temp <> "" Then
Set tempRange = area.Find(What:=temp, After:=area.Cells(1), LookIn:=-4176, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=True)
count = 1
For i = tempRange.Column - area.Cells(1).Column + 2 To 9
Set tempRange = area.Columns(i).Find(What:=temp, After:=area.Columns(i).Cells(1), LookIn:=-4176, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=True)
If Not tempRange Is Nothing Then
count = count + 1
Else
count = 0
End If
If count > 2 Then
nameDic(temp) = ""
Exit For
End If
Next
End If
Next
Dim firstRangeAddress$, nextRange As Range
For Each temp In nameDic.keys
Set tempRange = area.Find(What:=temp, After:=area.Cells(1), LookIn:=-4176, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, MatchByte:=False, SearchFormat:=True)
Set nextRange = area.FindNext(After:=tempRange)
tempRange.Interior.Color = 65535
While nextRange.Address <> tempRange.Address
nextRange.Interior.Color = 65535
Set nextRange = area.FindNext(After:=nextRange)
Wend
Next
Set nameDic = Nothing
Set tempRange = Nothing
Set nextRange = Nothing
End Sub

复制代码

jx928867128 · 发表于 2024-4-27 20:48

半百发表于 2023-3-2 13:11
试试看，如果同一列没有重复的话。

老师好，这是您帮我写的代码，原来的数据区域是从b7单元开始填写，现在数据是从B5单元格开始填写（只要把原附件中的表中删除2行）别的要求不变，方便帮我修改下吗，我自已改了好几次都没改成功

半百 · 发表于 2024-4-28 09:43

jx928867128 发表于 2024-4-27 20:48
老师好，这是您帮我写的代码，原来的数据区域是从b7单元开始填写，现在数据是从B5单元格开始填写（只要把 ...

jx928867128 · 发表于 2024-4-28 12:22

本帖最后由 jx928867128 于 2024-4-28 12:28 编辑

连续相邻列出现次数统计并标注.rar (46.19 KB, 下载次数: 0)

2024-4-28 12:28 上传
点击文件名下载附件

半百发表于 2024-4-28 09:43

老师好，再次谢谢您的回贴，我按你的提示改动后发现5行中填写的数据没有正确标注，麻烦您抽空再帮我看看好吗

半百 · 发表于 2024-4-28 12:37

jx928867128 发表于 2024-4-28 12:22
老师好，再次谢谢您的回贴，我按你的提示改动后发现5行中填写的数据没有正确标注，麻烦您抽空再帮我看看 ...

这样呢?

		自动登录	找回密码
密码			免费注册

[求助] 统计名字在同一区域内在连续相邻列中出现的次数并标注（已解决，正解在3楼）