[大神求解]在VBA中将C列中的重复数据用红色标识出来，并弹出对话框提示，其他vba清除单元格内容颜色不变，谢谢！！

来源：蜘蛛抓取(WebSpider) 时间：2015-12-07 05:22 标签： 规划求解目标单元格
EXCEL中，如何用VBA统计某一区域空白单元格的数量，并填充内容_百度知道
EXCEL中，如何用VBA统计某一区域空白单元格的数量，并填充内容
假设某一区域是A1:D10，填充的内容是&特定内容&，如下图：则VBA代码如下。Sub MyMacro()&&& Dim Rng As Range, c As Range, n As Long&&& Set Rng = Range(&A1:D10&)&&& Set c = Rng.SpecialCells(xlCellTypeBlanks)&&& n = c.Cells.Count&&& c.Value = &特定内容&&&& MsgBox &空白单元格的数量是& & n & &个&End Sub如下图，运行后会弹出一个对话框说明空白单元格数据，并填充特定内容，结果如下图：
其他类似问题
为您推荐：
提问者采纳
1) + 1End IfNext CEnd Sub把内容换成你要的内容;Cells(1.Value = &quotSub tt()Cells(1, 1) .Value = &quot.value = 0For Each C In SelectionIf C; ThenC;内容&quot, 1) = Cells(1;&quot
其他2条回答
选中a1:d100)，数量=countblank(a1何需vba
VBA不会，可以用条件格式，只是不能统计出数量，但是可以实现将空白单元格全部替换成你想要的。
excel的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁阅读权限20
在线时间 小时
jggggiiyjhyuguug
13:54 上传
点击文件名下载附件
44.92 KB, 下载次数: 7
阅读权限70
在线时间 小时
是把表1的D列去重后放到表2的I列吗？Sub 更新名称()
& & arr = Sheet1.Range(&d32:d& & Sheet1.[d65536].End(3).Row)
& & Set d = CreateObject(&scripting.dictionary&)
& & For i = 1 To UBound(arr)
& && &&&d(arr(i, 1)) = &&
& & Next
& & Sheet2.[I19].Resize(d.Count, 1) = Application.Transpose(d.keys)
End Sub
Sub 清除数据()
& & Sheet2.[i19:i65536].ClearContents
End Sub
复制代码
阅读权限70
在线时间 小时
请看附件。
14:09 上传
点击文件名下载附件
55.05 KB, 下载次数: 14
阅读权限20
在线时间 小时
grf1973 发表于
是把表1的D列去重后放到表2的I列吗？
是的&&表1 的（D32：D5999）里我每天都会输入今日生产的产品名称，那把不重复值放在表二的（I19：I5999）的目的&&是想让这些不重复值作为我们公司{产品列表大全}来方便查看，，您回我的附件好像不能实现这个用途&&。能不能再请您帮我重做一个
阅读权限70
在线时间 小时
附件不是实现这个功能了吗？试了下可以的啊。
阅读权限20
在线时间 小时
grf1973 发表于
附件不是实现这个功能了吗？试了下可以的啊。
恩 刚开始不会弄 现在好了& && &不过能不能在帮我加几个功能呢& &我把附件发上来& & 具体怎么改&&我就写在附件里哈
阅读权限20
在线时间 小时
我把要求都写在附件里面了哈
13:32 上传
点击文件名下载附件
140.29 KB, 下载次数: 5
阅读权限70
在线时间 小时
1、“出货单录入”表中按要求做了个“保存”按钮，可同步到“销售记录”中，保存后内容清空。并且能根据“生产记录查询”表中的产品名称自动匹配单位
2、“出货单录入”表中C列的数据有效性按“生产记录查询”表中的D列生成。
2、打开“销售记录查询”表会自动同步“生产记录查询”表中的产品名称和单位。
10:18 上传
点击文件名下载附件
141.62 KB, 下载次数: 10
阅读权限20
在线时间 小时
grf1973 发表于
1、“出货单录入”表中按要求做了个“保存”按钮，可同步到“销售记录”中，保存后内容清空。并且 ...
已解决& &！！非常感谢您的热心帮助
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师在excel中，怎么样可以查找到一列中重复的数据并把重复的数据所在的行整行删除？_百度知道
在excel中，怎么样可以查找到一列中重复的数据并把重复的数据所在的行整行删除？
第三个a和第一个a重复了，变成：a
3我觉得excel应该能做到吧例如，excel就自动把第三行删掉？请高手指点，原表是：a
3其中，谢谢
不能用VBA实现呢，呵呵，谢谢二位啦，想用个简单的方法，谢谢啊，就是不够自动化！ 1楼和2楼的方法也可以解决问题？ 因为有很多
提问者采纳
据－高级筛选－区域中选择要筛选的单元区域－下面有勾选－不重复－确定 能不能用VBA实现呢;
Range(&quot:k1000&quot.keys
arr = Range(&不重复值
Dim dic As Object
Dim arr，想用个简单的方法;S&quot.Clear
arr = dic，谢谢啊;);A1&, [A65536].Count) = Application！回答你, k%
Set dic = CreateObject(&quot，这挺简单的用下面代码Sub Slt()
&#39.Resize(dic.Transpose(arr)
dic.Dictionary&quot.End(3))
For k = 1 To UBound(arr)
dic(arr(k;a1, 1)) = &quot？ 因为有很多
提问者评价
其他类似问题
为您推荐：
excel的相关知识
其他3条回答
假如a,b,a,c在A列，右边的数字在B列。C1=IF(COUNTIF($A$1:A1,A1)=2,1,0)，鼠标放在C1右下角，变成十字后双击。选C列，数据-筛选-自动筛选，下拉菜单中选1，然后删除所有为1 的行。 -----补充Sub test()Dim i As IntegerDim j As Integeri = Range(&A65536&).End(xlUp).RowFor j = i To 1 Step -1
If Application.WorksheetFunction.CountIf(Range(&a:a&), Cells(j, 1)) &= 2 Then
Cells(j, 1).EntireRow.Delete
End IfNextEnd Sub
简单用countif即可实现，如图
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁

我要回帖

更多关于 规划求解目标单元格 的文章

 

随机推荐