数据表合并

limonet

Sub limonet()
    Dim Arr() As Variant, Brr As Variant, i%, j%, k%
    Brr = Range("A1:E" & Range("A" & Rows.Count).End(xlUp).Row)
    ReDim Arr(1 To 65536, 1 To 5)
    For i = 3 To UBound(Brr)
        If Brr(i, 5) = Brr(i - 1, 5) Then
            GoTo X
        Else
            k = k + 1
            For j = 1 To 5
                Arr(k, j) = Brr(i, j)
            Next
        End If
X:  Next i
    Range("N3").Resize(k, 5) = Arr
End Sub

limonet

关键字：if

test_test_test

Private Sub CommandButton1_Click()
        Dim csyx As String
        num_row = Cells(25566, 1).End(xlUp).Row
        Sheet1.Cells(1, "A").Resize(num_row, 5).Select
         Selection.Copy Sheet1.Cells(1, "H").Resize(num_row, 5)
         For i = 3 To num_row
               If csyx = "" Or Sheet1.Cells(i, "L") <> csyx Then
                 csyx = Sheet1.Cells(i, "L").Text
                 csyx_row = i
                 GoTo skip
                 End If
               If Sheet1.Cells(i, "L") = csyx Then
                  Sheet1.Cells(csyx_row, "J") = Sheet1.Cells(i, "J")
                  Sheet1.Cells(csyx_row, "K") = Sheet1.Cells(csyx_row, "K") + Sheet1.Cells(i, "K")
                  Sheet1.Cells(i, "H").Resize(1, 5).ClearContents
                   GoTo skip
               End If
               If Sheet1.Cells(i, "L") <> csyx Then
                 csyx = ""
               End If
skip:
         Next i

End Sub

friendcj

limonet 发表于 2024-9-13 14:08
关键字：if

非常感谢！祝中秋节快乐！工作顺利！

friendcj

test_test_test 发表于 2024-9-13 14:42
Private Sub CommandButton1_Click()
        Dim csyx As String
        num_row = Cells(25566, 1).En ...

收到！非常感谢！祝中秋节快乐！

friendcj

cnmlgb9998 发表于 2024-9-13 13:29
PQ解决这种问题，轻轻松松！！！！！！！！！！！

谢谢！中秋节快乐！