如何找出Excel一列中相同的值

xiaoping860823 2010-04-29 06:12:53
如题
...全文
340 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
ACMAIN_CHM 2010-04-29
  • 打赏
  • 举报
回复
楼上的太复杂了。

直接用条件格式就行了。

QQ群 48866293 OFFICE应用挖掘
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流!技术群,请阅群论坛中的《踢人规则》
ssniu1985 2010-04-29
  • 打赏
  • 举报
回复
上面错了
这个
Private Sub CommandButton1_Click()

Dim j As Integer
Dim m As Integer
Dim i As Integer

j = 1
m = 2

For i = 1 To 20

For j = 1 To 20

If Sheet1.Cells(i, 3).Text = Sheet1.Cells(j, 3).Text Then

Cells(j, 3).Interior.ColorIndex = m + 1
Cells(i, 3).Interior.ColorIndex = m + 1


End If
Next j


If Sheet1.Cells(i, 3).Text = "" Then
GoTo mex
End If

m = m + 1

Next i
mex:
End Sub
ssniu1985 2010-04-29
  • 打赏
  • 举报
回复
是kenny吧??哈哈 我allen 我回去试了下 可以 把分给我哦!!!
Private Sub CommandButton1_Click()

Dim j As Integer
Dim m As Integer
Dim i As Integer

j = 1
m = 2

For i = 1 To 20

For j = i + 1 To 20

If Sheet1.Cells(i, 3).Text = Sheet1.Cells(j, 3).Text Then

Cells(j, 3).Interior.ColorIndex = m + 1
Cells(i, 3).Interior.ColorIndex = m + 1


End If
Next j


If Sheet1.Cells(i, 3).Text = "" Then
GoTo mex
End If

m = m + 1

Next i
mex:
End Sub

5,172

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧