ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¨D¸Ñvbaµ{¦¡

[µo°Ý] ¨D¸Ñvbaµ{¦¡

hi ª©¥D
¦³­Ó°ÝÃD·Q°Ývbaµ{¦¡­n¦p¦ó¼¶¼g?¸Ô²Ó¸ê®Æ½Ð°Ñ¦Òªþ¥ó

°ÝÃD¸ÑÄÀ

Snap1.jpg
2019-5-18 15:35



Data.rar (22.76 KB)

ÁÂÁ¤j¤j,§Ú¸Õ¸Õ¬Ý,¦³°ÝÃD¦A°Ý¤j¤j
¯uªº·P®¦

TOP

¦^´_ 1# peter631114

Sub §ó·s_20190519()

    ROW1 = Cells(Rows.Count, "C").End(3).Row
     
    Range("C2").Select
    '±Æ§Ç===============================================================
    ActiveWorkbook.Worksheets("¸ê®Æ").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("¸ê®Æ").Sort.SortFields.Add Key:=Range("C2:C" & ROW1), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("¸ê®Æ").Sort.SortFields.Add Key:=Range("L2:L" & ROW1), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("¸ê®Æ").Sort
        .SetRange Range("A1:M" & ROW1)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

    Sheets(1).Copy after:=Sheets(Sheets.Count)
    Range("A2:M" & ROW1).ClearContents
    k = ActiveCell.Row
    Sheets(1).Select
    For i = 2 To ROW1
        If Cells(i, "C") = Cells(i + 1, "C") And Cells(i, "L") = Cells(i + 1, "L") Then
            Range(Cells(i, "A"), Cells(i + 1, "M")).Copy Sheets(Sheets.Count).Cells(k, "A")
        k = k + 2
        End If
      Next

End Sub

Data.zip (32.59 KB)

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD