SubSpecialDelete()
Dim r As Long
With Sheet1
‘計算sheet1中第一列最後一個非空單元格所在的行
r = .Cells(.Rows.Count,1).End(xlUp).Row
‘将A2:A”r‘’區域内所有特定值替換為空值，2代表部分匹配
.Range("A2:A" &r).Replace "特定值", "", 2
‘将第一列中所有為空的單元格所在行删除
.Columns(1).SpecialCells(4).EntireRow.Delete
End With
EndSub
補充：Range.SpecialCells 方法
返回一個Range對象，該對象代表與指定類型和值匹配的所有單元格。
1）語法
表達式 . SpecialCells(Type,Value)
表達式一個代表Range對象的變量。
2）參數
3）返回值
Range
4）注解
5）示例
本示例選定工作表Sheet1 中已用區域的最後一個單元格。
Worksheets("Sheet1").Activate
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Activate
,更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!
zpostcode 
Recruit 
weather 
mreligion 
Yellowpages 
sport 
constellation 
shopping 
name 
game 
directory 
literature 
Word 
tour 
furnish 
Lottery 
tftnews 
lyrics 
News 
digital 
car 
dir 
Edu 
Finance 
