Question

求EXCEL VB高手编个宏，谢谢！

运行后：
1.先取消所有合并单元格。
2.如A列单元格为空，或等于code(41)，也就是右括号，则删除整行。

Answer 1

Sub mysub()
For Each cell In UsedRange
If cell.MergeCells Then
cell.UnMerge
End If
Next
For i = UsedRange.Rows.Count To 2 Step -1
If Cells(i, 1) = "" Or Cells(i, 1) = Chr(41) Then
Rows(i).Delete
End If
Next i
End Sub

追问

高手，再求个宏，在SHEET1中，SEARCH所用底色不为空的单元格，并DELETE掉整行，谢谢！

追答

Sub mysub()
For Each cell In UsedRange
If cell.Interior.Color 16777215 Then
Rows(cell.Row).Delete
End If
Next
End Sub