删除工作簿中指定的行

naizhu2

一，应用背景。

   处理网评后下载下来的数据。
考试后从网站上把成绩下载之后。要对数据进行处理，处理之前要删除掉和处理数据无关的行。
二。要求
1.删除掉每个工作表中的第1行和每个工作表中的最后三行。
  第1行行数是固定的。  最后三行每个科目的行数不是固定的。因为每个科目的考试参加人数并不是完全一致的。
2.重复以上步骤。删除工作簿中所有的工作表的第1行和最后三行。
但是一个工作簿中有几个工作表也不是固定的。
因为每个年级参考的学科科目不固定。

rarnma

这个用PQ就很容易做，但是不能在原表里做，要建一个做好后的新工作薄，能行吗？

naizhu2

行，没有怎么接触使用power query，不过我正好学习下

minchar

录制一个宏也行

Eric0236

又来定位大法了
选择C列，Ctrl+G定位，选择空值，Ctrl+-，选删除整行
3个sheet都操作一下不会超过1分钟

sobili

Power Query 要求版本至少是2010。

以下是VBA代码，希望对你有帮助。

1. Sub Del_Line()
   
2. Dim sht As Worksheet
   
3. 
   
4. For Each sht In Sheets
   
5.     sht.Select
   
6.     Rows("1:1").Delete
   
7.     Range("a65536").End(xlUp).Offset(-2, 1).Resize(3, 1).EntireRow.Delete
   
8. Next sht
   
9. 
   
10. Sheet1.Select
    
11. 
    
12. End Sub
    

复制代码

naizhu2

Eric0236 发表于 2022-6-22 21:23
又来定位大法了
选择C列，Ctrl+G定位，选择空值，Ctrl+-，选删除整行
3个sheet都操作一下不会超过1分 ...

真的快，快捷键，我想复杂了，多谢