如何在EXCEL中用宏代码按要求删除指定内容？

Question

如图1所示 如果表格数据为0，删除所在表格内容和表格左面的数据，最终效果为图2，用宏代码如何实现，谢谢。

Answer 1

Sub 删除表格内容及数据()

Dim S As Long, D As Long

For S = 2 To 4 Step 2

For D = 1 To Range("D65536").End(xlUp).Row

If Cells(D, S) = 0 Then

Cells(D, S).Clear

Cells(D, S - 1).Clear

Else

End If

Next

Next

Sheets(1).Select

Range("a1").Select

End Sub

使用以上代码，

然后创建宏按钮

选择第一个控件，然后指定这个宏就行了。

有用请采纳！

Answer 2

EXCEL宏代码帮助（删除指定单元格的内容）插入图片，为图片分配宏，单击图片，清除以下十个单元格的内容B9、B14、B19、B24、B29、B35、b40、B45、B50、B55，并且不清除格式。第一步是以xlsm格式保存文件。第二步是输入宏，复制并粘贴以下代码，保存宏，并将其命名为qingkong。第三步是插入图片，右键单击以指定清空的宏。亚清空（）范围（“B9、B14、B19、B24、B29、B35、B40、B45、B50、B55”）。ClearContentsEnd子

Answer 3

EXCEL宏代码帮助（删除指定单元格的内容）插入图片，为图片分配宏，单击图片，清除以下十个单元格的内容B9、B14、B19、B24、B29、B35、b40、B45、B50、B55，并且不清除格式。第一步是以xlsm格式保存文件。第二步是输入宏，复制并粘贴以下代码，保存宏，并将其命名为qingkong。第三步是插入图片，右键单击以指定清空的宏。亚清空（）范围（“B9、B14、B19、B24、B29、B35、B40、B45、B50、B55”）。ClearContentsEnd子

Answer 4

选择第一个控件，然后指定这个宏就行了。有用请采纳！