用VBA删除隐藏行和列_excel吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：66,304贴子：
用VBA删除隐藏行和列收藏
大家好,请帮忙用VBA解决一个问题:如何实现在已用区域内把隐藏的行和列删除? 谢谢!
Sub xxx()On Error Resume NextFor Each cell In ActiveSheet.UsedRange
If cell.EntireRow.Hidden Then
cell.Delete 3
If cell.EntireColumn.Hidden Then
cell.Delete 4
End IfNextOn Error GoTo 0End Sub
首先谢谢2楼siaojuen的帮忙,但经测试,例如连续隐藏的多行(如10行)就要执行两次才能达到目的,再多的话可能要3次以上,能否再优化?另请解释一下cell.Delete 3, cell.Delete 4是什么意思? 谢谢
我试过连续行，列都可以一次过删除的。你试写出你那些连续列，我模拟你的情况再试。其实，如果你加入回圈就可以模拟执行多次，不须修改程式。Delete 3, 删除整行Delete 4, 删除整列
换一个方法：Sub xxx()r = ActiveSheet.UsedRange.SpecialCells(11).Rowc = ActiveSheet.UsedRange.SpecialCells(11).ColumnFor rr = r To 1 Step -1
If Rows(rr).Hidden Then
Rows(rr).Delete
End IfNextFor cc = c To 1 Step -1
If Columns(cc).Hidden Then
Columns(cc).Delete
End IfNextEnd Sub
这个完全OK.谢谢siaojuen
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或汇聚2000万达人的兴趣社区下载即送20张免费照片冲印
扫码下载App
温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
阅读(298)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
loftPermalink:'',
id:'fks_084074',
blogTitle:'删除含有“汇总”行的Excel-VBA函数（原创）',
blogAbstract:'本文提供两个有用的VBA小工具，可以解决一些实际问题。&1.&删除含有“汇总”行的Excel-VBA函数&Sub&删除汇总()&Dim&str&As&String&&&&&&Sheets(ActiveSheet.Name).Select&&\'选中当前工作表&&&str&=&ActiveSheet.Name&&\'获取当前工作表的表名&&&&&Range(&A1:C11',
blogTag:'',
blogUrl:'blog/static/',
isPublished:1,
istop:false,
modifyTime:0,
publishTime:0,
permalink:'blog/static/',
commentCount:0,
mainCommentCount:0,
recommendCount:0,
bsrk:-100,
publisherId:0,
recomBlogHome:false,
currentRecomBlog:false,
attachmentsFileIds:[],
groupInfo:{},
friendstatus:'none',
followstatus:'unFollow',
pubSucc:'',
visitorProvince:'',
visitorCity:'',
visitorNewUser:false,
postAddInfo:{},
mset:'000',
remindgoodnightblog:false,
isBlackVisitor:false,
isShowYodaoAd:false,
hostIntro:'',
hmcon:'0',
selfRecomBlogCount:'0',
lofter_single:''
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}新浪广告共享计划>
广告共享计划
EXCEL&VBA&&&怎样删除某一列符合某个条件的行？
Sub 删除重复数据()
'以col列为条件删除的重复行数据
'本例是删除标题为sheet1的EXCEL表中以A列（从A2单元格开始）为条件的重复韩国数据
Application.ScreenUpdating = False
'可根据实际情况修改下面三行的结尾值
'MsgBox "请确认子表名称是否是& 当前告警实时监控&
Dim sheetsCaption As String: sheetsCaption = "当前告警实时监控"
'MsgBox "请确认或修改到底 删除哪一列的重复数据？"
Dim Col As String: Col = "C"
Dim Col1 As String: Col1 = "E"
'MsgBox "请确认或修改该列的第几行开始核查所有数据是否有重复数据？"
Dim StartRow As Integer: StartRow = 3
'以下不需要修改
Dim EndRow As Integer: EndRow = Sheets(sheetsCaption).Range(Col
& "65536").End(xlUp).Row
MsgBox EndRow
Dim i As Integer: i = StartRow
With Sheets(sheetsCaption)
If Left(.Range(Col1 & i), 4)
&& "SDR:" Then
.Range(Col1 & i).Select
Selection.EntireRow.Delete
EndRow = Sheets(sheetsCaption).Range(Col1 &
"65536").End(xlUp).Row
'MsgBox EndRow
Loop While i & EndRow + 1
Application.ScreenUpdating = True
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。查看: 1832|回复: 1
阅读权限255UID581713函数3 关最后登录经验38764 点在线时间3965 小时VBA0 关分享记录好友技巧0 关相册主题段位3 段金币283 个积分38764精华0帖子日志注册时间
EP编辑部 【函中1301】A12 数初班主任 技初学委
金币283 个积分38764帖子
VBA删除工作表最后一行数据，见附件
13:19 上传
点击文件名下载附件
17.97 KB, 下载次数: 41
阅读权限255UID284853函数0 关最后登录经验116398 点在线时间3690 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币37246 个积分116403精华2帖子日志注册时间
金币37246 个积分116403帖子
hwc2ycy发布于
Sub test()
& & Dim sht As Worksheet
& & For Each sht In Worksheets
& && &&&If sht.Name && &总表& Then
& && && && &With sht
& && && && && & .Cells(Rows.Count, 1).End(xlUp).EntireRow.Delete
& && && && &End With
& && &&&End If
& & Next
& & MsgBox &删除完成&, vbInformation
End Sub复制代码
兴趣是最好的老师，高手是迟早的事情
阅读权限255UID284853函数0 关最后登录经验116398 点在线时间3690 小时VBA0 关分享记录好友技巧0 关相册主题段位0 段金币37246 个积分116403精华2帖子日志注册时间
金币37246 个积分116403帖子
&&&本楼为最佳答案&&&
Sub test()
& & Dim sht As Worksheet
& & For Each sht In Worksheets
& && &&&If sht.Name && &总表& Then
& && && && &With sht
& && && && && & .Cells(Rows.Count, 1).End(xlUp).EntireRow.Delete
& && && && &End With
& && &&&End If
& & Next
& & MsgBox &删除完成&, vbInformation
End Sub复制代码
总评分:&经验 + 6&
最佳答案累计大于500
每周一测编辑
Powered byExcel VBA运用，删除行、循环语句的运用及快捷键启用宏的实例 - 下载频道
- CSDN.NET
&&&&Excel VBA运用，删除行、循环语句的运用及快捷键启用宏的实例
Excel VBA运用，删除行、循环语句的运用及快捷键启用宏的实例
Excel VBA运用，删除行，循环For each next，rows.count计算，添加指定数据等， 打开Excel启用宏，然后按快捷键Ctrl+E
若举报审核通过，可奖励20下载分
被举报人：
举报的资源分：
请选择类型
资源无法下载
资源无法使用
标题与实际内容不符
含有危害国家安全内容
含有反动色情等内容
含广告内容
版权问题，侵犯个人或公司的版权
*详细原因：
您可能还需要
开发技术下载排行