excel vba判断单元格内容是否有重复

1。判断单元格内容是否有重复（给重复内容填充红色）
2。J4：Q11
3.同列提取单元格内重复的内容到第3单元（第三单元前加“A”字符）
也就是说第三单元=A+填充红色的字符
要用VBA

推荐答案 2015-06-16

AXx

è¿½ç

sub xxx()
for i=10 to 17
s="A"
for j=4 to 10
if cells(j,i).interior.colorindex3 then
for k=j +1 to 11
if cells(j,i)=cells(k,i) then
if cells(j,i).interior.colorindex3 then
cells(j,i).interior.colorindex=3
s=s & cells(j,i)
endif
cells(k,i).interior.colorindex=3
s=s & cells(k,i)
endif
next
endif
next
if s"A" then
cells(3,i)=s
endif
next
end sub

è¿½é®

è¿½ç

i=2 to 9
j=17 to 23
k=j to 24

è¿½é®

ä¸å¯¹
é¦åå¤ææ¯ä¸åæ¯ä¸ä¸ªååçåç¬¦ä¸²æ¯å¦æéå¤ï¼å¦ææéå¤ï¼ç»éå¤çåç¬¦ä¸²æ¶çº¢è²ï¼
ç¶ååå¤ææ¶çº¢è²çåç¬¦
B17ï¼I24èå´
æåååçåå®¹å¨15åå
http://pan.baidu.com/s/1pJHYmwF
excel vbaå¤æååæ ¼åå®¹æ¯å¦æéå¤

è¿½ç

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vffxfx37xre3x2yyeej.html

其他回答

第1个回答 2015-06-16

VBA代码
Sub Sheet3_按钮1_Click()
Dim i As Integer
Dim j As Integer
Dim Num As Integer

For i = 10 To 17
Cells(3, i) = ""
Cells(3, i).Font.ColorIndex = 3
Next i

For i = 4 To 11
For j = 10 To 17
Num = Evaluate("COUNTIF(J4:Q11," & Cells(i, j) & ")")
If Num > 1 Then
Cells(i, j).Interior.ColorIndex = 3
If Cells(3, j) = "" Then
Cells(3, j) = "A+" & Cells(i, j)
Else
Cells(3, j) = Cells(3, j) & " " & Cells(i, j)
End If
End If
Next j
Next i

End Sub

第2个回答 2015-06-16

直接用快速分析不可以吗追问

要用VBA
先填充重复字符为红色
然后再将列红色的字合并到第三单元格

你可能感兴趣的内容

大家正在搜

vba获取excel单元格内容 excel vba 选择单元格 excel单元格去重复 vba读取excel单元格 excelvba合并单元格 excelvba查找单元格 vba单元格增加内容 vba读取选择的单元格内容 excel筛选有颜色的单元格

非常风气网www.verywind.cn

excel vba判断单元格内容是否有重复

相关了解……

你可能感兴趣的内容