vba 根据前一单元格的内容删除本单元格vba合并相同的单元格内容

来源：蜘蛛抓取(WebSpider) 时间：2017-11-28 01:00 标签： vba 清除单元格内容
VBA清除单元格内容而不清除单元格格式_百度知道
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。
VBA清除单元格内容而不清除单元格格式
求VBA代码Sub clear()
Sheets(4).Range(&D7:D11&).clearEnd Sub以上代码在清除单元格内容的同时也把单元格的边框，及对齐方式都清除了，求代码：能清除单元格内容而不清除其它的设置，如边框，后缀等等
我有更好的答案
Sheets(4).Range(&D7:D11&).ClearContents
采纳率：56%
来自团队：
为您推荐：
其他类似问题
vba的相关知识
换一换
回答问题，赢新手礼包如何在excel中取消合并完单元格后自动把内容填充给其每个取消后的单元格_百度知道
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。
如何在excel中取消合并完单元格后自动把内容填充给其每个取消后的单元格
方法：1、选中合并单元格内的数据，并复制；2、先中任一空白单元格，鼠标右键，选择性粘贴；3、在弹出的对话框中，选择数值（见下图）；4、选择刚刚粘贴的数据，CTRL+G打开“定位”对话框，单击下方的“定位条件”；5、在弹出的定位条件对话框中，选择“空值”后确定；6、选择空值后，输入=C4，可根据情况，输入公式（＝上一单元格内容）；7、输入公式后按&Ctrl& + &Enter& &就可以快速填充空值。
采纳率：73%
来自团队：
最佳答案,我已找到
选中合并区域，取消合并，把合并的取消掉，选定这一列,按下F5，弹出定位对话框，定位条件 选择 空值，确定，按下“=”，再按下向上方向键，再同时按下CTRL+ENTER，就可以了。最后,如果不出现值,就把单元格所有的数据粘到记事本里,把该列变成数据,再从记事本里复制出来粘回去就可以了
本回答被提问者采纳
自动化是没有的。只能手动。选中需要取消合并单元格的区域，单击“合并及居中”，然后紧接着，Ctrl+G－定位条件－空值。按一次=，再按↑（光标键），再按Ctrl+Enter结束。
办法是有的，可惜没分。
其他1条回答
为您推荐：
其他类似问题
excel的相关知识
换一换
回答问题，赢新手礼包如何在关闭Excel工作表的同时清除指定单元格内的内容_百度知道
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。
如何在关闭Excel工作表的同时清除指定单元格内的内容
我有更好的答案
指定清除d2单元格的内容的宏Sub Auto_close()
Range(&D2&).Select
Selection.ClearContentsEnd Sub
采纳率：55%
Range(&quot，双击它;A1&quot，选择一个BeforeClose事件。 以自动清除第一张Sheet的单元格A1为例，代码为：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets(1);).Clear
ThisWorkbook在VBA代码编辑器中（快捷键Alt+F11），找到Excel对象中的ThisWorkBook对象
你好，具体的书写格式帮忙提供一下。用这个提示编译错误，运行不了，谢谢！
Private&Sub&Workbook_BeforeClose(Cancel&As&Boolean)&&&&Sheets(1).Range(&A1&).Clear&&&&ThisWorkbook.SaveEnd&Sub注意，选择BeforeClose事件，代码的首尾行，是默认就生成了，你只需填写中间两行代码
为您推荐：
其他类似问题
excel工作表的相关知识
换一换
回答问题，赢新手礼包查看: 9350|回复: 18
如何删除单元格中的重复项？
阅读权限20
在线时间 小时
QQ截图未命名.png (7.93 KB, 下载次数: 29)
09:18 上传
可见单元格中有重复的数据，我希望把重复的删除掉，可是在遇到大量数据时如何比较快速地进行处理呢？望大侠指点啊
(7 KB, 下载次数: 91)
09:18 上传
点击文件名下载附件
阅读权限95
在线时间 小时
项目以“;”为分隔符？
阅读权限95
在线时间 小时
Public Sub Del()
Dim d As New Dictionary, R
R = Range(&A2&, Cells(65536, 1).End(3))
For i = 1 To UBound(R)
&&For Each m In Split(R(i, 1), &;&)
& & d(m) = &&
&&R(i, 1) = Join(d.Keys, &;&)
&&d.RemoveAll
[b2].Resize(UBound(R)) = R
Set d = Nothing
阅读权限20
在线时间 小时
回复 2楼 Zamyi 的帖子
谢谢。不过分隔后怎么横向删除重复项呢，然后怎么再把;号比较快速地添上去呢？能不能详细点呢？
阅读权限20
在线时间 小时
回复 3楼 Zamyi 的帖子
您用的是VBA吧，有没有不用VBA的方法呢？比如函数等方法
阅读权限10
在线时间 小时
根据你提供的数据，每个数据用分号分隔。那么先分列，以分号进行分隔
再在后面用=IF(COUNTIF(B1:E1,B1)&1,&&,B1)将不重复的数据保留
用=CONCATENATE(F1,&;&,G1,&;&,H1,&;&,E1)连接字符串
阅读权限95
在线时间 小时
是VBA[/quote]
09:45 上传
点击文件名下载附件
11.54 KB, 下载次数: 127
阅读权限30
在线时间 小时
'個人認為還是vba來處理比較好,用vba做一個函數,在a2中輸入=Getuniq(a1),再下拉就可以了.
Option Explicit
Function Getuniq(Rng As Range) As String
& && &&&Dim Arr As Variant
& && &&&Dim Str1 As String
& && &&&Dim x As Integer
& && &&&Dim Dict As Object
& && &&&On Error GoTo Error_Getuniq
& && &&&Application.Volatile
& && &&&Str1 = Rng.Value
& && &&&If Str1 = && Then
& && && && && & Getuniq = &&
& && &&&Else
& && && && && & '創建dictionary對象
& && && && && & Set Dict = CreateObject(&Scripting.Dictionary&)
& && && && && & Arr = Split(Str1, &;&)
& && && && && & For x = LBound(Arr) To UBound(Arr)
& && && && && && &&&If Not Dict.Exists(Arr(x)) Then Dict.Add Arr(x), Arr(x)
& && && && && & Next
& && && && && &
& && && && && & Arr = Dict.keys
& && && && && & Str1 = &&
& && && && && & For x = LBound(Arr) To UBound(Arr)
& && && && && && && &&&Str1 = Str1 & Arr(x) & &;&
& && && && && & Next
& && && && && & Getuniq = Left(Str1, Len(Str1) - 1)
& && &&&End If
Exit_Getuniq:
& && &&&Set Dict = Nothing
& && &&&Exit Function
Error_Getuniq:
& && &&&Getuniq = CVErr(2015)
& && &&&GoTo Exit_Getuniq
End Function
阅读权限20
在线时间 小时
学习中。。。。。。。。。。。。。。。。。。。。。:time:
阅读权限10
在线时间 小时
认真学习.............................
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师vba删除符合条件的某个单元格所在行 数据量大_百度知道
vba删除符合条件的某个单元格所在行 数据量大
我有更好的答案
&nbsp.count&1&to&usedrange.i=i-1&)=573001&&&&&&rows(i).delete&nbspsub&删除特定行（）dim&&&&end&ifnext&i%for&c&)=280205&or&cells(i,&c&&&i&=&nbsp,&&&&&&cells(i;if&&&nbsp
采纳率：56%
为您推荐：
其他类似问题
vba的相关知识
换一换
回答问题，赢新手礼包

我要回帖

更多关于 vba 清除单元格内容 的文章

 

随机推荐