下图是参考答案的内容：
写为过程为：
Sub 删除单元格()
'删除B4单元格，删除后右侧单元格左移
Range("B4").Delete Shift:=xlToLeft
'删除B4单元格，删除后下方单元格上移
Range("B4").Delete Shift:=xlUp
'删除B4单元格所在的行
Range("B4").EntireRow.Delete
'删除B4单元格所在的列
Range("B4").EntireColumn.Delete
End Sub
承担因您的行为而导致的法律责任，
本站有权保留或删除有争议评论。
参与本评论即表明您已经阅读并接受
上述条款。