excel vba 如何实现识别出某列重复数据

excel中，某列数据可能有重复项,比如张三，李四，王五，张三，张三...用vba，使用一个按钮控件，点击执行，提示框显示，“张三”有重复（不必提示重复几次也行，提示更好，再有重复接着提示。。）。想到了countif，该怎样实现，最好详细一些。非常感谢了。

举报该问题

第1个回答 2010-03-12

一定要用VBA吗？用简单的函数公式或者条件格式显示也可以呀。
假定数据在a列，在b1输入：
=if(countif(a:a,a1)>1,"重复","")
公式下拉

第2个回答 2010-03-12

见图：

第3个回答 2010-03-12

容易,VBA可以实现,Q
(1048818630)本回答被提问者采纳

相似回答

excel vba在三列数据中找重复数答：新建立一个宏，名为 find ,自己设计快捷键，如果数据特别多，在定义 a,b,c,t,m,n 的时候，可以改为 AS Long Sub find()Dim checkb As Boolean Dim checkc As Boolean Dim a, b, c As Integer Dim t, m, n As Integer Dim r As Integer checkb = False checkc = False r =...

excel vba判断所选范围列是否重复与不重复二种代码答：Sub 删除重复() Dim arr, i&, j&, n& Dim d, k, t, x For i = 11 To 65 Set d = CreateObject("Scripting.Dictionary") n = Cells(65536, i).End(3).Row If n > 15 Then arr = Cells(n - 15, i).Resize(5) For j = 1 To 5 If arr(j...

Excel vba如何使用宏实现:判断A列数据是否重复,如果重复,在B列显示重 ...答：myBoo = True Dim I As Long, C As Long C = Application.WorksheetFunction.CountA(Range("A:A"))For I = 1 To C If Range("B" & I).Value <> Application.WorksheetFunction.VLookup(Range("A" & I).Value, Range("A:B"), 2, 0) Then myBoo = False: Exit For Next If my...

如何在Excel中通过VBA快速查找多列重复的值答：VBA查找重复值一般使用字典对象，例子代码：set db = createobject("scripting.dictionary")arr = range("a1:d10") '需要检查的区域for i=1 to ubound(arr) for j=1 to ubound(arr,2) if db.exists(arr(i,j)) then msgbox "发现重复值：" & arr(i,j) else db(arr(i,...

excel 工作簿利用VBA查找重复数据并显示答：2).Value Then Sheet3.Cells(k, 1).Value = Sheet1.Cells(i, 2).Value k = k + 1 End If Next j End If Next i End Sub 该数据其他相关信息在同一行的话，在k=k+1前加 Sheet3.Cells(k, 2（或3、4...）).Value = Sheet1.Cells(i, 3（相关信息在的行数）).Value ...

Excel vba如何判断同一列中两个单元格中字符串相同(单元格不固定)_百 ...答：比如对于A列数据，在B1输入公示：=COUNTIF(A:A,A1)然后自动填充下面的内容，若结果为1表示A1内容在A列中是唯一的，结果2表示有2个相同的A1值，以此类推。

大家正在搜

Excel vba如何使用宏实现：判断A列数据是否重复，如果...

VBA实现寻找一列里相同数据

利用EXCEL VBA如何将一列数据中不重复的数据读取到数组...

如何利用EXCEL VBA将一列数据中不重复的数据读取到数组...

EXCEL VBA 判断是否有重复内容

excel中，用VBA编写的，将一列中相同的内容的行提取出来...

EXCEL中怎样用VBA提取两列数据相同的数放在指定单元格中...

Excel VBA编程目的是做如下判断，A列相同的值对应的...