怎样删除空单元格及空单元格上方的3个单元格

nigeda88

如图，是我制作的单位工人的计件工资工资条，要求删除每个工人没生产的产品，改怎样用VBA做到？如图所示，第一个人是我用手工删除的，是想要得到的结果。怎样删除黄色区域（仅标识了两个人作为示例，其他人要删的单元格未标成黄色区域），删去后单元格左移，得到像第一个工人那样的工资条？附件如下：

nigeda88

顶顶，别沉了

nigeda88

有路过的高手请帮帮我

nigeda88

顶顶，希望高手看到

xiangbaoan

所提供的附件与图片的看到的根本就不一致，
还有，图片上行号列标都看不到，爱莫能助……

nigeda88

xiangbaoan 发表于 2018-9-15 19:04
所提供的附件与图片的看到的根本就不一致，
还有，图片上行号列标都看不到，爱莫能助……

失敬，失敬，太马虎了，把在网站上找的类似的问题给发上去了，看不懂那个，用的数组，想改改代码的，但对vba数组不懂，没改成。这会把正确的发上来了，麻烦大神给看看。

xiangbaoan

nigeda88 发表于 2018-9-15 19:23
失敬，失敬，太马虎了，把在网站上找的类似的问题给发上去了，看不懂那个，用的数组，想改改代码的，但对 ...

表1，数组法；表2，删除单元格法；自行测试，仅供参考……

仲夏之雪

Sub 整理表格()

Dim a, b, c, d As Integer
a = Worksheets("Sheet1").UsedRange.Rows().Count
b = Worksheets("Sheet1").UsedRange.Columns().Count
For c = 1 To a Step 1
    For d = b To 3 Step -1
        If Range("C" & c) = "数量" Then
            If Cells(c, d) = "" Then
                Range(Cells(c - 3, d), Cells(c + 1, d)).Select
                Selection.Delete Shift:=xlToLeft
            End If
        End If
    Next d
Next c
End Sub