Question

我想要做的是让程序通过是从一列单元格中找到一个特定的值，并在我特殊粘贴该值后查看它是否与一个单元格匹配，如果有匹配则删除相关细胞及其细胞行。发生的事情是程序的特殊粘贴部分正在工作，但相关的单元格没有被删除。为了澄清，我试图根据是否有匹配来删除某一列中的整行

Dim j As Integer
Dim i As Integer
i = 2
Dim Aud_Tot As Integer
Aud_Tot = Application.InputBox("How big is your audit", , , , , , , 1)
Do While True
    If Cells(i, 1).Value <> "" And Not IsError(Cells(i, 2).Value) Then
        Range(Cells(i, 1), Cells(i, 22)).Copy
        Range(Cells(i, 1), Cells(i, 22)).PasteSpecial xlPasteValues
        For j = 2 To Aud_Tot
            If Cells(j, 24).Value = Cells(i, 2).Value Then
                Range(Cells(j, 24), (Cells(j, 42))).ClearContents
            End If
        Next j
        i = i + 1
    Else
        Exit Do
    End If
Loop

Answer 1

似乎您要删除该行，但您只使用ClearContents。要删除，您可以将该行更改为Range(Cells(j, 24), (Cells(j, 42))).Delete Shift:=xlShiftUp，也可以使用xlShiftToLeft。

您要删除整个行还是只删除您拥有的范围？

删除特定单元格Excel

1 个答案: