Question

Sub Organize()

    With Worksheets("Sheet3")
        For i = 2 To 916 Step 3
            .Range("G" & i - 1).Value = .Range("C" & i).Value
            .Range("C" & i).Value = ""
            .Range("H" & i - 1).Value = .Range("D" & i).Value
            .Range("D" & i).Value = ""
            .Range("I" & i - 1).Value = .Range("E" & i).Value
            .Range("E" & i).Value = ""
            .Range("J" & i - 1).Value = .Range("F" & i).Value
            .Range("F" & i).Value = ""
        Next

        For i = 921 To 3 Step -3
            .Range("A" & i).EntireRow.Delete
            .Range("A" & i - 1).EntireRow.Delete
        Next

    End With

End Sub

基本上我对此做了什么，是我最后一行数据的+1，我的所有数据都有原始和重复的样本，以及每个不同“样本”样本之间的空格。它将重复数据重新排列到原始行，删除重复行，然后将我的所有数据格式化到我的表中，我只需复制和粘贴。想知道如何在不必做任何事情的情况下执行此操作，或者每次根据放入数据的样本数量打开脚本和编辑脚本。任何信息都非常感谢:)

工作表数据自动管理（重组）

0 个答案: