kim223824

¦^´_ 1# cclo0728

Sub test_20190702()
    Sheets("Sheet1(¦Û°Ê¼W¥[¨Ã©ñ¸mAC¤ÎEC®Æ").Select
    ROW1 = Cells(Rows.Count, "C").End(3).Row
    If ROW1 > 2 Then
        Range(Cells(1, "C"), Cells(ROW1, "E")).Clear
    End If
   
    ROW1 = Cells(Rows.Count, "A").End(3).Row
   
    arr = Range("A2:A" & ROW1)
   
    ROW2 = Sheets(1).Cells(Rows.Count, "A").End(3).Row
   
    Sheets(1).Range("A1:C" & ROW2).AdvancedFilter _
        Action:=xlFilterCopy, CriteriaRange:=Range("A1:A" & ROW1), CopyToRange:=Range( _
        "C1"), Unique:=False
   
    Columns("C:C").ColumnWidth = 14
    Columns("D:D").ColumnWidth = 16
    Columns("E:E").ColumnWidth = 8
   
    '==============================================================
    Sheets("Sheet2(¦Û°Ê¼W¥[¨Ã©ñ¸mEA¤ÎEB®Æ¸¹").Select
   
    ROW1 = Cells(Rows.Count, "C").End(3).Row
    If ROW1 > 2 Then
        Range(Cells(1, "C"), Cells(ROW1, "E")).Clear
    End If

    Range("A1").Select
   
    ROW1 = Cells(Rows.Count, "A").End(3).Row
   
    brr = Range("A2:A" & ROW1)
   
    Sheets(1).Range("A1:C" & ROW2).AdvancedFilter _
        Action:=xlFilterCopy, CriteriaRange:=Range("A1:A" & ROW1), CopyToRange:=Range( _
        "C1"), Unique:=False
    Columns("C:C").ColumnWidth = 14
    Columns("D:D").ColumnWidth = 16
    Columns("E:E").ColumnWidth = 8

    Sheets.Add After:=Sheets(Sheets.Count)
    Columns("A:A").ColumnWidth = 14
    Columns("B:B").ColumnWidth = 16
    Columns("C:C").ColumnWidth = 8
   
    Sheets(1).Range("A1:C" & ROW2).Copy Range("A1")
   
    For i = ROW2 To 2 Step -1
        
        For j = 1 To UBound(arr)
            If Cells(i, "A") Like arr(j, 1) Then
                Rows(i).Delete
                GoTo 1100
            End If
        Next
        For j = 1 To UBound(brr)
            If Cells(i, "A") Like brr(j, 1) Then
                Rows(i).Delete
                GoTo 1100
            End If
        Next
1100:
   
    Next

End Sub
´ú¸Õ.zip (20.84 KB)

¤U¸ü¦¸¼Æ: 10

2019-7-2 13:42

kim223824

¦^´_ 3# cclo0728

¥Ø«eÀ°§A¦Ò¼{ªº¤º®e¦p¤U:
1. §@·~¤è¦¡¬O¥Î EXCEL¤¤ªº  "¶i¶¥¿z¿ï"¡A±N§A­nªº®Æ¸¹©ïÀY ¿ï¥X¡C
2. «ü©w®Æ¸¹ªº­¶¼Æ¥u¦³©T©w¨â­¶(­¶­±¦WºÙ¤£¥i§ó§ï)¡C
3. ¦ý¬O«ü©w®Æ¸¹ªº¤º®e¥i¯à·|ÅÜ (EA ==> EZ)¡A©Ò¥H¥u­n¦bAÄæ KEYIN§A­nªº®Æ¸¹©ïÀY´N¥i¥H¦³·sªº®Æ¸¹ ex:  EZ*

kim223824

¦^´_ 5# ­ã´£³¡ªL


    ·PÁ¡AÅý§Ú¤S´£¤É¤F¡C

kim223824

¦^´_ 9# cclo0728

   
     ROW1 = Cells(Rows.Count, "C").End(3).Row           'ª¾¹DCÄæ³Ì«á¤@­Ó¦³¸ê®Æªº¦ì¸m
     If ROW1 > 2 Then                                                            '¦pªGROW1 >2 ªí¥Ü §AªºCÄ榳¸ê®Æ
          Range(Cells(1, "C"), Cells(ROW1, "E")).Clear                '±NCÄæ~EÄæ³£²M°£
     End If
     '==============================
     
     ROW1 = Cells(Rows.Count, "A").End(3).Row          'ª¾¹DAÄæ³Ì«á¤@­Ó¦³¸ê®Æªº¦ì¸m
     arr = Range("A2:A" & ROW1)      '±NAÄ檺¸ê®Æ©ñ¶iarrªº°}¦CÅܼƸ̭±

kim223824

¦^´_ 19# cclo0728

§A¦b§â§Aªº»Ý¨D¼g²M·¡¤@ÂI¡A¥Ø«eSHEET3¤w¸g¥i¥H§R°£sheet1/sheet2ªº«~¸¹¡C
¹w­p¥X³f.zip (56.51 KB)

¤U¸ü¦¸¼Æ: 4

2019-8-3 10:29

kim223824

¦^´_ 22# cclo0728


    ¤½¦¡1.zip (27.64 KB)

¤U¸ü¦¸¼Æ: 8

2019-10-9 16:03

kim223824

¦^´_ 24# cclo0728

Sub ¦U§O±N¼t°Ó¤À­¶()
    f1 = Sheets.Count   '§PÂ_²{¦b¦³´X­¶
    ROW1 = Cells(Rows.Count, "A").End(3).Row
   
    If ROW1 > 2 Then
        Range(Cells(1, "A"), Cells(ROW1, "B")).Clear
    End If

    If f1 > 3 Then  '§PÂ_­¶­±¤j©ó3­¶ ªí¥Ü¦³­ì¨Óªº¸ê®Æ §R°£
        For i = f1 To 4 Step -1         '±q³Ì«á¤@­¶©¹«e §R°£
            Application.DisplayAlerts = False 'Ãö³¬´£¿ô
            Sheets(i).Delete
            Application.DisplayAlerts = True   '¶}±Ò´£¿ô
        Next
    End If
   
    ROW1 = Sheets("¤í®Æ").Cells(Rows.Count, "C").End(3).Row
    Sheets("¤í®Æ").Range("B1:B" & ROW1).Copy Range("A1")
   
    Range("B2:B" & ROW1) = "=COUNTIF(A:A,A2)"
    Range("B2:B" & ROW1).Value = Range("B2:B" & ROW1).Value
   
    '±Æ§Ç ¤j¨ì¤p============
    ActiveWorkbook.Worksheets("§ó·s2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("§ó·s2").Sort.SortFields.Add Key:=Range("B2:B" & ROW1), _
        SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("§ó·s2").Sort
        .SetRange Range("A1:B" & ROW1)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
   
    '²¾°£­«½Æ========================
    ActiveSheet.Range("$A$1:$B$" & ROW1).RemoveDuplicates Columns:=Array(1, 2), Header _
        :=xlYes
   
    ROW1 = Cells(Rows.Count, "A").End(3).Row
   
    arr = Range("A2:B" & ROW1)
   
    ROW2 = Sheets(1).Cells(Rows.Count, "A").End(3).Row
   
    '·s¼W­¶­±==============================
    For i = 1 To UBound(arr)
        Sheets.Add after:=Sheets(Sheets.Count)
        Sheets(i + 3).Name = arr(i, 1)
        Range("A1").Value = "«È¤á²ºÙ"
        Range("A2").Value = arr(i, 1)
        
        ROW3 = Cells(Rows.Count, "A").End(3).Row
        '¶i¶¥¿z¿ï===============================
        Sheets(1).Range("A1:AA" & ROW2).AdvancedFilter _
        Action:=xlFilterCopy, CriteriaRange:=Range("A1:A" & ROW3), CopyToRange:=Range( _
        "C1"), Unique:=False
        Range("A:B").Delete
    Next

    Sheets("§ó·s2").Select

    ROW3 = Cells(Rows.Count, "A").End(3).Row
   
    Range(Cells(1, "A"), Cells(ROW3, "B")).Clear
   
End Sub


    ¤½¦¡1.zip (51.32 KB)

¤U¸ü¦¸¼Æ: 8

2019-10-10 11:42