½Ð°ÝSHEETÂà´«¬ö¿ýªº°ÝÃD

tonycho33

1.½Ð°Ý¤@¤U,¦p¦ó±NA SHEET¦s¨ìB SHEET·íJÄ榳¥X²{¥ô¦ó­È®É¹ïÀ³ªº¸Ó¦C´N·|½Æ»s¨ìB SHEET(ªÅ¥Õ³B©µ¦ù)¤¤


2.¥t¤@ºØ¬O·í«ö¤U«ö¶s®É(¹ïÀ³¤u³æ¸¹½X),«h¸Ó¤u³æ¹ïÀ³ªº©Ò¦³¦C´N½Æ»s¨ìB SHEETªÅ¥Õ³B

B SHEET­n¤@ª½²Ö¥[,¤£¯à¯dªÅ¥Õ
ÁÂÁÂ

tonycho33

¦^´_ 14# register313


    ·PÁ¨ó§U,³o¼Ëªº°µªkªº½T¤ñ§Ú·Q±oÁÙ¦n«Ü¦h
  ·PÁÂ

register313

¦^´_ 13# tonycho33

    a«ö¶s(aa->bb)®³±¼ b«ö¶s(bb->cc)®³±¼  (¤£¯à¦Û¤v¥Î«ö¶s±±¨î)
=> ·íaa¤u§@ªíTÄæ·s¼W1­Ó"¤w±Æµ{"®É,¦Û°Ê·s¼W¨ìbb¤u§@ªí¤Îcc¤u§@ªí
   
Book1.rar (29.93 KB)

¤U¸ü¦¸¼Æ: 13

2012-2-16 18:04

tonycho33

¦^´_ 12# GBKEE
¦^´_ 11# register313
FÄæ¬O¸ê®ÆÄæ,ÁôÂÿù¤F
EÄæ¬O¹w¯dÄæ¦ì

½Ð±Ð¤@¤U
¤§«e¸ß°Ý¹Lªº°ÝÃD­n·J¾ã
aa¡÷bb ¬O·íTÄæ¿é¤J¡y¤w±Æµ{¡z«h¶×¤Jbb,¨Ã¥i¥H¤@µ§¤@µ§·s¼W,¤wok
bb¡÷cc ¥Ø«e¬O¥u¯àÄæ¦ìÂà´«,¥i§_·íbb¦³·s¼W®É,cc¤]¥i¥H¤@µ§¤@µ§·s¼W,½Ð¨ó§U
´N¬O·íaa·s¼W¤@µ§TÄæ¿é¤J¡y¤w±Æµ{¡z,¸Óµ§3¦C·|Âà¤Jbb³Ì«á3¦C,¤§«áÂà´«¨ìcc®É,¥uÂà³o¤@µ§,¤£·|¥þ³¡¤@°_Âà´«,¨Ã±Æ¦b³Ì¤U¤è
cc¡÷dd «h¬O¤§«e´£°Ýªº¥\¯à,¥i¥H¤@µ§¤@µ§·s¼Wdd,¤wok


©Ò¥H³Â·Ð²Ä¤G¶µ¥\¯à¥i¥H¨ó§U
ÁÂÁÂ

GBKEE

¦^´_ 10# tonycho33
½Ð°Ý ¦p¹Ï

¤U¸ü (32.19 KB)

2012-2-16 12:58

register313

¦^´_ 10# tonycho33

1. Sub QQ()
   
2. BR = 2
   
3. With Sheets("aa")
   
4.   For AR = 3 To [A65536].End(xlUp).Row Step 3
   
5.     If .Cells(AR, "T") = "¤w±Æµ{" Then
   
6.        .Cells(AR, "A").Resize(3, 19).Copy Sheets("bb").Cells(BR, "A")
   
7.        BR = BR + 3
   
8.     End If
   
9.   Next AR
   
10. End With
    
11. End Sub

½Æ»s¥N½X

tonycho33

¦^´_ 9# GBKEE


    ³Â·ÐÁÂÁÂ

GBKEE

¦^´_ 8# tonycho33
    ·íT3¥X²{"¤w±Æµ{"®É«h
SHEETS("AA") TÄ椤³£¨S¦³¸ê®Æ°Ú

tonycho33

¦^´_ 7# GBKEE

¤£¦n·N«ä¥i¥H¦b½Ð±Ð¤@­ÓÃþ¦üªº°ÝÃD¶Ü
§Ú·Q±Naa sheet°O¿ý¨ìbb sheet
±ø¥ó¬O¦baa sheet¹ïÀ³ªºt Ä榳¥X²{­Èªº¸Ü
´N±N¹ïÀ³ªºA¨ìRÄ橹¤U3¦C½Æ»s¨ìbb sheet
¦ý¬O¸ê®ÆÁÙ­n«O¯d/¤£­n§R°£

¨Ò¦p¡G·íT3¥X²{"¤w±Æµ{"®É«hA3¨ìR5 ¤T¦Ccopy¨ìbb sheet¤¤ ªÅ®æ³B
¦ý¬OA3¨ìR5¤£­n§R°£
±µ¤U¨Ó´N¥H¦¹Ãþ±À¥i¥H¥é·Ó³o¼Ë°O¿ý

ÁÂÁÂ

GBKEE

¦^´_ 5# tonycho33

1. Private Sub Data_Copy(xF As Integer, xCriteria As String)
   
2.     Dim Sh As Worksheet, Rng(1 To 2) As Range, xRow As Range
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.      With Sheet7   'Sheets("A")
   
6.         .AutoFilterMode = False
   
7.         .Range("a1").AutoFilter Field:=xF, Criteria1:=xCriteria
   
8.         Set Rng(1) = .UsedRange.SpecialCells(xlCellTypeVisible)
   
9.         If Application.CountA(Rng(1)) = Rng(1).Columns.Count Then  
   
10.              .AutoFilterMode = False
    
11.             MsgBox IIf(xCriteria <> "<>", "§ä¤£¨ì ¤u³æ :" & xCriteria, "§¹¦¨®É¶¡  ¨S¦³ªº¸ê®Æ")
    
12.             GoTo e
    
13.         End If
    
14.         Set Sh = Sheets.Add
    
15.         Rng(1).Copy Sh.[a1]
    
16.         Sh.UsedRange.Offset(1).Copy Sheet6.Cells(Rows.Count, "A").End(xlUp).Offset(1)
    
17.         Sh.Delete
    
18.         .AutoFilterMode = False
    
19.         .Activate
    
20.         For Each xRow In Rng(1).Rows.Cells
    
21.             If xRow.Row <> 1 Then
    
22.                 If Rng(2) Is Nothing Then
    
23.                     Set Rng(2) = xRow
    
24.                 Else
    
25.                     Set Rng(2) = Union(xRow, Rng(2))
    
26.                 End If
    
27.             End If
    
28.         Next
    
29.         Rng(2).Delete xlShiftUp
    
30.     End With
    
31. e:
    
32.     Application.ScreenUpdating = True
    
33.     Application.DisplayAlerts = True
    
34. End Sub

½Æ»s¥N½X