Question

每次刷新表时，我都会尝试清理VBA并格式化数据。我想看两列。一个是Job＃，下一个是顶级Job＃。我希望vba查看E列，如果E5 = D5，则删除E5中的内容。如果它们不相同，请将内容保留在E5中。我希望它可以做到这一点，因为在E列中有很多行，因为这将不断变化。如果需要更多信息，请告诉我。

Answer 1

试试这个..

Private Sub test()

    Dim rng As Range
    Dim cell As Range
    Dim LastRow As Long

    With ActiveSheet
        LastRow = .Range("D1").SpecialCells(xlCellTypeLastCell).Row
    End With

    Set rng = Range("E2:E" & LastRow)
    MsgBox rng.Address

        For Each cell In rng
            If LCase(cell.Value) = LCase(cell.Offset(0, -1)) Then

                cell.ClearContents

            End If
        Next cell

End Sub

删除单元格值下一列中的单元格是相同的

1 个答案: