obsidian/知识参考/电脑软件常用指令/Excel-VBA/VBA选中区域删除重复以及空行列.md

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==