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

¦p¦óÅý®Æ¸¹¯à°÷¦Û°Ê§P©w¨Ã½Æ»s¥h«ü©wªº¤u§@ªí

¦^´_ 20# kim223824
·PÁÂKIM,§Ú³oÃä¤w¸g§¹¦¨¤F
¦ý´N¥d¦b¤½¥qªºEXCEL¬O¤j³°ªºWPS,µLªk°õ¦æ¦Û°Ê¦C¦L¥\¯à(¦bºô¸ô¤W®×¨Ò¤¤)
·PÁ§A¸ò­ã¤jªº§Þ³N«ü¾É,ÁÂÁÂ

TOP

¦^´_ 20# kim223824

½Ð±ÐKIM¤j
§Ú¦bVBA¨ºÃä·Q§ï¦¨¦¬´M"¤g"³o­Ó¦r,¦ý¬O¶]¥X¨Ó¤£¬OªÅ¥Õ,´N¬O¥u¦³¤é´Á
¬O¨ºÃä¨S¦³§ï¦n,³Â·Ð«üÂI¤@¤U,ÁÂÁÂ

¤½¦¡1.rar (19.36 KB)

TOP

¦^´_ 22# cclo0728


    ¤½¦¡1.zip (27.64 KB)

TOP

¦^´_ 23# kim223824
·PÁÂ,§Ú§Ñ°O¼t°Ó¦WºÙ­n²Å¦X²Ä¤@­¶¤ñ¹ïªº­nÂI¤F:(
¥t¥~·Q½Ð±Ð¤@­Ó°ÝÃD,¦³¿ìªk¨Ì¼t°ÓÅã¥Ü¥X¸û¦h®É,¦Û°Ê²¾¸m·s¼W¤À­¶¶Ü?
¦p¤g¦b²Ä¤@­¶¦³3­Ó¥X²{,ªá¥i¯à¥X²{2­Ó,¨ä¥L¥i¯à¥u¥X²{1¦¸,§ì¨ú¸û¦h¼Æ©Î«e´X¦Wª½±µ¤À­¶·s¤u§@ªí

TOP

¦^´_ 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)

TOP

¦^´_ 25# kim223824
·PÁÂKIM,·Q¦A½Ð±Ð
1.¤½¥qªº«È¤á§O«Ü¦h,¦p¦ó±Æ©w«e´X¤jµ§¼Æ¸û¦hªº¦Û°Ê¤À­¶¥X¨Ó(¨Ò¦p§Ú¥u­n«e¤T¦W,«á­±ªº¤£¥Î¦Û°Ê¤À­¶)
2.¦b¤í®Æªí¤¤,¤À­¶¥X¨Ó«á¯à°÷±N­ì¥»¤í®Æªí§R°£¶Ü?
3.°²¦p§Ú¥Î¼Ï¯Ã¶]¤@¶}©lªº¤í®Æ,¦³¿ìªk¸ò²Ä¤@­Ó°ÝÃD¤@¼Ë,¥Î¼Ï¯Ã§ìÁ`µ§¼Æ?(¦b§ó·s2­¶¬O¤£¬O¥i¥H¤£¥ÎCOUNTIF?
4.Äæ¦ì¤¤¦³¤@­Ó¥s¹w­p¶}¤u,¦]¤½¥q¦P¤¯³£·|±Æ§Ç¤é´Á¤p¨ì¤j,°²³]¥H¤µ¤Ñ¤é´Á+1ªº¸Ü,¤]´N¬O20191015¤§«áªº«á­±¸ê®Æ¯à°÷¦Û°Ê§R°£¶Ü
©êºp°ÝÃD¦³ÂI¦h,¦ý·Q«Ü¤[¬dGOOGLE¤]¬d¤£¤Ó¨ì,¦A³Â·Ð«üÂI

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD