arrays - 删除行和列的数组

Question

我有一些报告，其中夹杂着小计。我需要删除小计，这很容易确定(如我的 IF 语句中所示)。

但是，我的以下代码不会删除整行小计。

Sub clean_up()
'declare variables
Dim i As Integer
Dim noRows As Integer

'count rows
noRows = Range("B2:B387").Rows.Count

'delete row entries that are duplicates..
For i = 1 To noRows
    If Range("B2").Cells(i + 1, 1) = Range("B2").Cells(i, 1) Then
    Range("B2:G2").Cells(i + 1).Clear


    End If
Next i

End Sub

我不明白为什么我的代码的 Range("B2:G2").Cells(i + 1).Clear 不正确。使用 Range("B2").Cells(i + 1).Clear 可删除行中的第一个条目，因此不应 Range("B2:G2").Cells (i + 1).Clear 删除整行？

Answer 1

它只影响单个单元格，因为您从一个范围 (Range("B2:G2")) 开始，然后告诉它仅清除一个单元格 (.Cells(i + 1)) 该范围(向下偏移 1 行)。最好从单个单元开始并使用 Range.Resize property调整列数。

Range("B2").Cells(i + 1).RESIZE(1, 6).Clear