-
Excel删除某一行之后的所有数据 及VBA运行方法
2013-11-14 20:35:03使用VBA脚本删除某行之后的所有行。 ALT+F11打开“Visual Basic 编辑器”中。单击“插入”菜单,然后单击“模块”。 输入以下代码 Sub deleteRow() For i = 1500 To 1603 Step 1 Rows(i).Delete i = i + 1 ...使用VBA脚本删除某行之后的所有行。
ALT+F11打开“Visual Basic 编辑器”中。单击“插入”菜单,然后单击“模块”。
输入以下代码
Sub deleteRow()
For i = 1500 To 1603 Step 1
Rows(i).Delete
i = i + 1
Next
End Sub
在“工具”菜单中指向“宏”并单击“宏”。
选择定义的宏
单击运行
-
Excel删除包含某关键字的指定行(VBA)
2020-05-19 15:06:13一、背景及需求:上一期介绍的由多个excel合成的Excel表如下所示,我们需要把有汉字的行删删除掉。 二、解决方案:同样的还是要用VBA来解决,操作前面已经介绍过了,我们直接上代码和注释(!!!在这里需要强调一下...一、背景及需求:上一期介绍的由多个excel合成的Excel表如下所示,我们需要把有汉字的行删删除掉。
二、解决方案:同样的还是要用VBA来解决,操作前面已经介绍过了,我们直接上代码和注释(!!!在这里需要强调一下:在运行代码前要选中需要删除的部分,比如A-F——1-2000,上下左后都要选,不能全选。由于程序会对选中的每个单元格进行索引,如果直接Ctrl+A全选或者只选择上下或者左右的话,程序会由于一直进行excel单元格的索引而进入无限索引,最终导致电脑卡死!!!):Sub wrj() Dim rng As Range '定义了一个range类型的变量 rng Dim InputRng As Range '同上 Dim DeleteRng As Range '同上 Dim DeleteStr As String '字符串型数据 xTitleId = "KutoolsforExcel" '选择区域弹窗的名字 Set InputRng = Application.Selection Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8) DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2) '删除的行的关键字 For Each rng In InputRng '遍历所有行 If rng.Value = DeleteStr Then '如果有关键字和需要删除的关键字一样 If DeleteRng Is Nothing Then Set DeleteRng = rng Else Set DeleteRng = Application.Union(DeleteRng, rng) End If End If Next DeleteRng.EntireRow.Delete '删除行 End Sub
三、摁下F5运行,即可得到结果。
-
vba判断某单元格是否有边框时,返回错误的结果。
2019-04-14 22:22:05i = 7 '从第7行开始遍历,只要i行B列还有边框,行数统计+1,直到遇到没有边框的那一行为止 While aimSheet.Range("b" & i).Borders.LineStyle <> xlNone ' i = i + 1 Wend count = i '返回最后有边框的行数 ... -
Excel VBA实用技巧大全 附书源码
2010-10-08 18:59:2404046引用输入了任何内容的最后一行单元格(多列情况之一) 04047引用输入了公式或值的最后一行单元格(多列情况之二) 04048引用输入了任何内容的最后一列单元格(单行情况之一) 04049引用输入了公式或值的最后一... -
excel中161个VBA_自定义函数超级实用
2018-03-28 08:36:32函数作用:查询某一值第num次出现的值................9 '3.函数作用:返回当个人工资薪金所得为2000元(起征点为850元)时的应纳个人所得税税额.............................10 '4.函数作用:从形如"123545ABCDE"的... -
我整理的VBA 自定义函数大全 共138页
2008-11-21 16:14:032.查询某一值第num次出现的值 3.返回当个人工资薪金所得为2000元(起征点为850元)时的应纳个人所得税税额 4.从形如"123545ABCDE"的字符串中取出数字 5.从形如"ABCD12455EDF"的字符串中取出数字 6.按SplitType取得... -
中小学简易成绩管理系统(EXCEL VBA)
2009-08-20 23:37:35可是对总表您尽可放心大胆编辑、修改,对数据进行各种处理,比如可以进行排序、筛选、删除等操作,哪怕移动和删除任何一行、一列,删除任何一个单元格也无妨。 3、具有恢复能力 本作品对成绩册和成绩单,虽然采用... -
如何EXCEL中按行随机抓取数据并保存
2016-09-09 15:09:39网上找的一段VBA代码来进行随机不重复地提取。它能实现从某列(本例为A1:A600)中随机不重复地提取100个数据,将其放到指定区域(本例为C1:C100)中,但是只能实现随机抽取1次,可是VB我完全看不懂啊,不知道怎么改... -
Instrumentation Graph Extension ActiveX Components
2012-05-31 17:56:17Knob是一个开发者可灵活配置的多用途的园行旋转组件来设置或连续调节某一变量的值, SwitchKnob是一个旋钮调节器来选择某一选项的离散选择控件。 开发者可以买整个软件包,或只买其中一个或几个子软件包。 对每个... -
arcgis工具
2012-10-22 22:37:31这种方法选择某一图层上的要素,其中心点落在另一图层要素中。 完全在…内(Are completely within) 这种方法选择完全落在另一图层多边形内部的某一图层上的要素,例如,选择林区里面的湖泊。通过指定一个缓冲... -
EXCEL集成工具箱完整版 (简体/繁体/英文多国语言版) V7.0
2010-08-13 10:31:10最大的优点是将指定的任意区域按每个存储格内容为一行加入到当前批注中,允许批注内容中是否显示行号。 【连接字符串】 可视化地窗体连接字符串功能。能将最多三个任意区域存储格(或列)的内容按自定的分隔符号连接... -
EXCEL集成工具箱V6.0
2010-09-11 01:44:37最大的优点是将指定的任意区域按每个存储格内容为一行加入到当前批注中,允许批注内容中是否显示行号。 【连接字符串】 可视化地窗体连接字符串功能。能将最多三个任意区域存储格(或列)的内容按自定的分隔符号... -
中小学简易成绩管理系统(excel)
2009-08-28 00:11:12可是对总表您尽可放心大胆编辑、修改,对数据进行各种处理,比如可以进行排序、筛选、删除等操作,哪怕移动和删除任何一行、一列,删除任何一个单元格也无妨。 3、具有恢复能力 本作品对“成绩册(公式)”和“成绩... -
中小学简易成绩分析系统
2009-08-27 22:13:25可是对总表您尽可放心大胆编辑、修改,对数据进行各种处理,比如可以进行排序、筛选、删除等操作,哪怕移动和删除任何一行、一列,删除任何一个单元格也无妨。 3、具有恢复能力 本作品对“成绩册(公式)”和“成绩... -
EXCEL集成工具箱V8.0 多国语言版(2003-2010通用)
2010-09-11 12:08:58最大的优点是将指定的任意区域按每个存储格内容为一行加入到当前批注中,允许批注内容中是否显示行号。 【连接字符串】 可视化地窗体连接字符串功能。能将最多三个任意区域存储格(或列)的内容按自定的分隔符号... -
EXCEL集成工具箱V8.0完整增强版(精简)
2010-09-23 16:58:17最大的优点是将指定的任意区域按每个存储格内容为一行加入到当前批注中,允许批注内容中是否显示行号。 【连接字符串】 可视化地窗体连接字符串功能。能将最多三个任意区域存储格(或列)的内容按自定的分隔符号... -
Excel百宝箱
2012-10-27 17:09:21【筛选唯一值】:以选择区域左边一列为条件进行唯一值筛选,输入1则删除重复值所在行,输入2则隐藏重复值所在行 【相同项与不同项】:提取两列数据的共同项和不同项,也可以对两列数据的不同项或者相同项进行标示 ... -
Excel百宝箱9.0无限制破解版
2012-02-03 19:05:29【筛选唯一值】:以选择区域左边一列为条件进行唯一值筛选,输入1则删除重复值所在行,输入2则隐藏重复值所在行 【相同项与不同项】:提取两列数据的共同项和不同项,也可以对两列数据的不同项或者相同项进行标示 ... -
Excel百宝箱9.0无限制破解版.rar
2012-09-05 09:31:51【筛选唯一值】:以选择区域左边一列为条件进行唯一值筛选,输入1则删除重复值所在行,输入2则隐藏重复值所在行 【相同项与不同项】:提取两列数据的共同项和不同项,也可以对两列数据的不同项或者相同项进行标示 ... -
EXCEL集成工具箱V9.0 多国语言最终原版(2003-2010通用)
2011-01-07 20:40:25最大的优点是将指定的任意区域按每个存储格内容为一行加入到当前批注中,允许批注内容中是否显示行号。 【连接字符串】 可视化地窗体连接字符串功能。能将最多三个任意区域存储格(或列)的内容按自定的分隔符号... -
Excel百宝箱 9.0 破解版 批量导入图片等200种功能
2013-05-11 22:46:24【筛选唯一值】以选择区域左边一列为条件进行唯一值筛选,输入1则删除重复值所在行,输入2则隐藏重复值所在行 【建文件目录】对指定文件夹中的文件建立目录,且生成链接,单击可以打开对应的文件 【建工作表目录】对... -
excel的使用
2012-11-25 17:06:01比如,假设在某一河流生态调查工作表中,B2包含“物种”、B3包含“河鳟鱼”,B7包含总数45,那么: 输入“=CONCATENATE("本次河流生态调查结果:",B2,"",B3,"为",B7,"条/公里。")” 计算结果为:本次河流... -
Excel百宝箱8.0
2011-06-07 21:32:17【筛选唯一值】:以选择区域左边一列为条件进行唯一值筛选,输入1则删除重复值所在行,输入2则隐藏重复值所在行 【相同项与不同项】:提取两列数据的共同项和不同项,也可以对两列数据的不同项或者相同项进行标示 ... -
检测同列重复值工具
2005-12-02 10:36:26<BR> 另外,本工具还可以手动对某一列数据进行检测!<P> 注意事项:<BR> 基于VBA功能的限制以及运行速度上的考虑,本工具只支持在同列中向上进行检测。也就是说,本工具将默认用户的输入习惯为:每输入完毕一个数据... -
中小学学生成绩管理系统(excel版)(宏限制,无法编辑)
2009-09-06 19:03:42可是对总表您尽可放心大胆编辑、修改,对数据进行各种处理,比如可以进行排序、筛选、删除等操作,哪怕移动和删除任何一行、一列,删除任何一个单元格也无妨。 3、具有恢复能力 本作品对成绩册和成绩单,虽然采用... -
Exce百宝箱——2012版本.rar
2012-10-19 19:52:33【筛选唯一值】:以选择区域左边一列为条件进行唯一值筛选,输入1则删除重复值所在行,输入2则隐藏重复值所在行 【相同项与不同项】:提取两列数据的共同项和不同项,也可以对两列数据的不同项或者相同项进行标示 ... -
excel 工具箱
2012-01-22 15:04:34【筛选唯一值】:以选择区域左边一列为条件进行唯一值筛选,输入1则删除重复值所在行,输入2则隐藏重复值所在行 【相同项与不同项】:提取两列数据的共同项和不同项,也可以对两列数据的不同项或者相同项进行标示 ... -
Excel 2007数据透视表完全剖析 5/7
2012-04-01 09:28:323.7.3 利用“按某一字段汇总”跟踪YTD总和 62 3.7.4 确定每一行业务对总计的贡献大小 62 3.7.5 创建季节性报表 63 3.7.6 用占总和的百分比选项度量两个字段的百分比 63 3.7.7 使用百分比选项将一行与另一行... -
Excel 2007数据透视表完全剖析 4/7
2012-04-01 09:23:383.7.3 利用“按某一字段汇总”跟踪YTD总和 62 3.7.4 确定每一行业务对总计的贡献大小 62 3.7.5 创建季节性报表 63 3.7.6 用占总和的百分比选项度量两个字段的百分比 63 3.7.7 使用百分比选项将一行与另一行... -
Excel 2007数据透视表完全剖析 3/7
2012-04-01 09:18:533.7.3 利用“按某一字段汇总”跟踪YTD总和 62 3.7.4 确定每一行业务对总计的贡献大小 62 3.7.5 创建季节性报表 63 3.7.6 用占总和的百分比选项度量两个字段的百分比 63 3.7.7 使用百分比选项将一行与另一行...
收藏数
85
精华内容
34