Question

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

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

Answer 1

1、是查找单列重复还是整个区域重复
2、提取内容时重复的算一个还是有几个提几个，比如J4J5都是x，J3是Ax还是Axx

追问

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

追问

如果修改为B17：I24
提取同列的内容在15单元
请问如何修改

追答

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

追问

不对
首先判断每一列每一个单元的字符串是否有重复（如果有重复，给重复的字符串涂红色）
然后再判断涂红色的字符
B17：I24范围
提取同列的内容在15单元
http://pan.baidu.com/s/1pJHYmwF
excel vba判断单元格内容是否有重复

追答

Answer 2

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

Answer 3

直接用快速分析不可以吗

追问

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