2016年9月14日 星期三

Excel 刪除空值的文字方塊(物件)

如果Excel檔,因為內含多許用不到的物件,可透過按F5→特殊→物件,待全選了物件後,按Delete鍵一次刪除。

但如果該檔案中含有其它的圖案要保留,以上方法會連圖型或圖案也刪了。

如果只是要針對空白的文字方塊,可以用以下VBA來刪除,空白的文字方塊(物件)

點選要處理的工作表後,按Alt+F11,貼上以下巨集,再執行即可。

Sub 巨集2()

For Each tbox In ActiveSheet.TextBoxes

If tbox.Text = "" Then tbox.Delete

Next tbox

End Sub