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

½Ð°ÝÄæ¦ì½Æ»sªº°ÝÃD

½Ð°ÝÄæ¦ì½Æ»sªº°ÝÃD

¥»©«³Ì«á¥Ñ tonycho33 ©ó 2012-3-22 11:45 ½s¿è

½Ð°ÝÄæ¦ì½Æ»sªº°ÝÃD
½Ð°Ý¥Ø«e¦³3­Ósheet¤À§O¬Oaa1,aa2,aa3
§Ú·Q§âaa3ªºsheetªºYÄæcopy¨ìaa1ªºAÄæ¡A
¦ý¬O¦³±ø¥ó´N¬O
1.aa3ªºYÄæªÅ®æ­n§R°£
2.aa3ªºAAÄ榳¥X²{"¤w±Æ"¤]­n§R°£
3.aa3ªºYÄæ¨ìAAÄæ¬O®M¤½¦¡¶i¨Óªº
¤§«eªº§@ªk¬O·s¼W¤@­Ósheet--aa2¡A¥ý¦b³oÃä§@¿ý»s¥¨¶°ªº¿z¿ï
µM«á¦AÂà¨ìaa1
½Ð°Ý¦³§ó²¼äªº¼gªk¶Ü
ÁÂÁÂ
¤§«eªº¥¨¶°¦p¤U
  1. Sheets("aa3").Select
  2.    Columns("Y:AA").Select
  3.     Selection.Copy
  4.     Sheets("aa2").Select
  5.     Columns("F:F").Select
  6.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  7.         :=False, Transpose:=False
  8.     Cells.Select
  9.     Selection.AutoFilter
  10.     Selection.AutoFilter
  11.     Selection.AutoFilter Field:=6, Criteria1:="="
  12.     Rows("2:2").Select
  13.     Range(Selection, Selection.End(xlDown)).Select
  14.     Selection.Delete Shift:=xlUp
  15.     Selection.AutoFilter Field:=6
  16.     Selection.AutoFilter Field:=8, Criteria1:="¤w±Æ"
  17.     Rows("4:4").Select
  18.     Range(Selection, Selection.End(xlDown)).Select
  19.     Selection.Delete Shift:=xlUp
  20.     Selection.AutoFilter Field:=8
  21.     Cells.Select
  22.     Selection.AutoFilter
  23.     Sheets("aa1").Select
½Æ»s¥N½X

Book1.rar (12.56 KB)

Tony

¦^´_ 1# tonycho33


     ¨Ì·Ó¼Ó¥Dªºªí¥Ü¤è¦¡
     aa3¬O­ì©l¸ê®Æ°Ï
     aa1¬Oµ²ªG°Ï
     ­Y¬O³o­Ó±¡ªpªº¸Ü~
     «Øij­ì©l¸ê®Æ°Ï~ ¤£­n¶i¦æ§R°£ªº±ø¥ó~
     §A­nªº¥u¬O¨Ì§A±ø¥ó±Naa3ªº¸ê®Æ©ñ¦baa1
     §Ú±Nµ²ªG©ñ¦baa1 BÄæ¦ì¤¤
     ¨Ì±ø¥ó~
      aa3 YÄæ¦ì¤¤¦³¸ê®ÆªºÀx¦s®æ©ñ¦baa1 BÄæ¦ì ,¨Ã±N[¤w±Æ]ªº¸ê®Æ±Æ°£,¦@±o¨ì124µ§¼Æ¾Ú
      ¤S
       ¦baa1 AÄæ¦ìªºªí¥Ü¤è¦¡~ ¬O¤T­Ó¦X¨ÖÀx¦s®æ©ñ¤@µ§aa3 Yªº¸ê®Æ
  1. Sub ex()

  2. Dim A As Range
  3. For Each A In Sheet3.Range("Y:Y")
  4.     If A <> "" And A.Offset(0, 2) <> "¤w±Æ" Then
  5.        Sheet1.Range("B" & 3 + N) = A
  6.        Sheet1.Range("B" & 3 + N & ":B" & 3 + N + 2).Merge
  7.        N = N + 3
  8.     End If
  9. Next

  10. End Sub
½Æ»s¥N½X
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD