SUB删除()Rows("4:10000").Select'4:10000行删除Selection.DeleteShift:=xlUpENDSUB

在编辑栏输入a1：a200，然后按住ctrl键回车，就会被选中，在做删除。如下图的操作，点击放大后查看做法:使用宏的话，代码如下：Subshanchu()Rows("1:200").DeleteEndSub

1、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visualbasic】。2、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】。3、会弹出模块编辑窗口。4、在代码编辑窗口输入以下代码：Sub...

连接字符串用&改成Rows(i&":"&j).Delete

Rows("91:99").Delete删除中间不要的行B:如果要保留的行数量较少，可以先遍历Collection，将保留行的数据复制到另一个地方，比如另一个表或者原表格的下方复制完毕后，将原表格整个删除（rows("").delete...

找一个空白列第一行单元格输入=mod(row(),2)填充到底筛选这列=1的行拷贝到新表中即可（这样保险）或者筛选这列=0的行按照shift选中第一行，选中最后一行，右键-删除

利用循环，从listbox第一个list开始对是否选中进行判断，如果是选中状态，就从listbox中移除这一条。详细代码如网友回PrivateSubColDelCmd_Click()Fori=0ToListBox2.ListCount-1Ifi<ListBox2.List...

如果每隔10行删除9行都是这个规律、连续的，这样操作：1、增加一个辅助列，前10行填写值1，后9行填写值0；如下图；2、选择区域，进行填充：选此辅助列前10后9行区域，鼠标移动到此区域的最后单元格的右下角，指针...

.Range("A1:A3").EntireRow.Delete'这里删除A1到A3行'.Rows("2:20").Delete'这里删除第二行到第20行EndWith'以下代码用于保存更改ActiveWorkbook.SaveActiveWorkbook.CloseFilename=Dir()LoopEnd...

用辅助列，假设E列，E10公式：=OR(WEEKDAY(B10)={2,4,6,7})下拉；然后对辅助列排序，删除TRUE所在行最后删除辅助列。