Sub 删除区域重复性及空行列()  
'选中A2单元格的区域  
Range("A2").CurrentRegion.Select  
Range("A2").Activate  
'选择A到AH列删除第2列的重复值  
ActiveSheet.Range("$A$1:$AH$65535").RemoveDuplicates Columns:=2, Header:= _  
xlYes  
'删除空行  
Dim LastRow As Long, r As LongLastRow = ActiveSheet.UsedRange.Rows.CountLastRow = LastRow + ActiveSheet.UsedRange.Row - 1  
For r = LastRow To 1 Step -1 If WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r  
'删除空列  
Dim LastColumn As Long, c As LongLastColumn = ActiveSheet.UsedRange.Columns.CountLastColumn = LastColumn + ActiveSheet.UsedRange.Column  
For c = LastColumn To 1 Step -1 If WorksheetFunction.CountA(Columns(c)) = 0 Then Columns(c).Delete Next c
 
End Sub

'删除空行Sub DeleteEmptyRows()Dim LastRow As Long, r As LongLastRow = ActiveSheet.UsedRange.Rows.CountLastRow = LastRow + ActiveSheet.UsedRange.Row - 1  
For r = LastRow To 1 Step -1 If WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r End Sub'删除空列Sub DeleteEmptyColumns()Dim LastColumn As Long, c As LongLastColumn = ActiveSheet.UsedRange.Columns.CountLastColumn = LastColumn + ActiveSheet.UsedRange.Column  
For c = LastColumn To 1 Step -1 If WorksheetFunction.CountA(Columns(c)) = 0 Then Columns(c).Delete Next c End Sub
 \> 来自 \<[https://www.cnblogs.com/Chary/p/No0000C1.html](https://www.cnblogs.com/Chary/p/No0000C1.html)\>  

==参考====文献：====https://www.cnblogs.com/Chary/p/No0000C1.html==