VBA，如果不匹配时间，向下移动一些范围

Question

我有 16k 行数据。有两列时间。我需要的是找到时间不匹配的行，然后将最后 3 列中的所有内容向下移动到一列中，所以最后我将拥有时间匹配的所有行，而那些不匹配的行将最后 3 列留空排。这是我到目前为止所拥有的，但我是 VBA 的新手，这不起作用（

Sub timeline()

Dim y As Long
    With ThisWorkbook.Sheets("L5")
    y = .Range("G" & .Rows.Count).End(xlUp).Row
    End With

x = 2
Do While ThisWorkbook.Sheets("L5").Cells(x, 4) <> ""


    If ThisWorkbook.Sheets("L5").Cells(x, 4).Value = ThisWorkbook.Sheets("L5").Cells(x, 7).Value Then

    Else: ThisWorkbook.Sheets("L5").Range("Gx:Iy").Select
    Selection.Offset(1, 0).Select

    y = y + 1

    End If

x = x + 1
Loop

Answer 1

下面的代码应该可以做到。检查是否使用了正确的范围和单元格；我试图从你的代码中找出答案：

Sub timeline()

    Dim y As Long
    With ThisWorkbook.Sheets("L5")
        y = .Range("G" & .Rows.Count).End(xlUp).Row
    End With

    x = 2
    Do While ThisWorkbook.Sheets("L5").Cells(x, 4) <> ""

        If ThisWorkbook.Sheets("L5").Cells(x, 4).Value = ThisWorkbook.Sheets("L5").Cells(x, 7).Value Then
            ' nothing
        Else
            ThisWorkbook.Sheets("L5").Range("G" & Trim(Str(x)) & ":I" & Trim(Str(y))).Cut
            ThisWorkbook.Sheets("L5").Range("G" & Trim(Str(x + 1))).Select
            ThisWorkbook.Sheets("L5").Paste
            y = y + 1
        End If

        x = x + 1
    Loop
End Sub

VBA，如果不匹配时间，向下移动一些范围

VBA, moving some range down, if not matching time

excel

vba

range