本文以excel2013為例來說明。對於excel2013首先取消宏的禁用,具體請百度。下面以一個例子來說明。如圖所示在K列的“行業名稱A”一列里,我們要刪除所有含有“房地產”的單元格所在的行。下面說步驟
打開宏,(快捷鍵是ALT+F11),彈出宏窗口后。
1,在菜單欄里,選擇“插入”-“模塊”
2,在彈出的模塊窗口里,再次選擇“插入”-“過程”
名稱隨便寫一個就可以了,然后其它默認,確定就可以了。
在打開的過程窗體里輸入以下代碼,然后執行就可以了。
Dim cel As Range
For Each cel In ActiveSheet.UsedRange
If InStr(cel.Value, "房地產") <> 0 Then
Rows(cel.Row).Delete
End If
Next
至於刪除含有空白單元格所在行的方法,簡要提一下。
1,選中某列,快捷鍵CTRL+G
2,在“查找和選擇”中找到”定位條件“
3,勾選空值
4,任一空白單元格上右鍵“刪除”
ok