如何用EXCEL的VBA脚本编写程序删除空行和空列

一个示例，其中语句“Trim(ThisWorkbook.Worksheets("sheet1").Cells(1, 1).Value = "")”是判断的关键点，如果用判断一行或一列是否有不为空的单元格的话，效率低是一方面，另一方面系统会误判断，因为可能有空格在单元格内，所以安全的方法还是判断指定的多个关键单元格的数值（例如姓名、性别等）。

语句“For I = 1 To 100”中的100根据需要设定，指循环的最大行数。

Sub deleteRow()
Dim I As Long, J As Long
Dim sTemp As String

For I = 1 To 100

If Trim(ThisWorkbook.Worksheets("sheet1").Cells(1, 1).Value = "") Then
J = ThisWorkbook.Worksheets("sheet1").Cells(1, 1).Row
sTemp = Trim(Str(I))
sTemp = sTemp & ":" & sTemp
Rows(sTemp).Select
Selection.Delete Shift:=xlUp
End If
Next
End Sub

简单的说,你先不要学编程,先学用宠记录功能,然后用VBA查看宏代码就可以了,按宏代码写就行了.