400-685-0732

WJMonitor舆情之声

企业大数据智能舆情监测管理解决方案

全网监测海量数据按需发布监测预警

实时把握舆情动态精准追溯信息源头

获取验证码
企业采购 个人使用
当前位置: 首页 > 办公 > excel > excel锁定工作表部分区域 删除Excel工作表中数据区域中的奇数行的方法

excel锁定工作表部分区域 删除Excel工作表中数据区域中的奇数行的方法

时间:2018-07-13 15:41:52

excel锁定工作表部分区域 删除Excel工作表中数据区域中的奇数行的方法,作为经常和办公软件打交道的你这些问题是不是经常困扰着你,小编今天这篇文章就是帮助你解决excel锁定工作表部分区域这个问题,当你再次遇到excel锁定工作表部分区域 删除Excel工作表中数据区域中的奇数行的方法这个问题的时候,我相信你绝对不会再犯愁了,下面就跟我一起来学习一下这个知识吧!

在Excel工作表中,有时需要删除数据区域中的某些特定行,如数据区域中的奇数行。如果由操作者一行一行地删除,则效率较低。实际上,通过编写简单的VBA程序就能很快捷地解决这个问题,本文介绍了删除Excel工作表中数据区域中的奇数行的方法。

1、启动Excel并打开工作表,如图1所示。打开Visual Basic编辑器,在工程资源管理器中插入一个模块,在该模块的“代码”窗口中输入如下程序代码:

Sub DeleteRows()

Dim n,i As Long

n=Range("A65536").End(xlUp).Row

If n Mod 2=0 Then n=n-1

For i=n To 1 Step-2

Rows(i).Delete

Next

End Sub

excel锁定工作表部分区域 删除Excel工作表中数据区域中的奇数行的方法

图1 打开需要处理的工作表

提示

在这段程序中,程序将数据区域最后一行的行号n与2进行取模运算,判断该变量是否为偶数,然后使用For循环从最大的奇数行开始,以2为步长逐行删除掉奇数行。

2、按F5键运行程序,工作表中的奇数行被删除,如图2所示。

excel锁定工作表部分区域 删除Excel工作表中数据区域中的奇数行的方法

图2 工作表中的奇数行被删除

以上就是excel锁定工作表部分区域 删除Excel工作表中数据区域中的奇数行的方法全部内容了,希望大家看完有所启发,对自己的工作生活有所帮助,想要了解更多跟excel锁定工作表部分区域 删除Excel工作表中数据区域中的奇数行的方法请关注我们优词网!

excel锁定工作表部分区域 删除Excel工作表中数据区域中的奇数行的方法

分享按钮