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

[µo°Ý] ¦³Ãö¤ñ¹ï¤£¦PEXCELªí¤¤¸ê®Æªº¤º®e¡AÂÇ¥H§ä¥X­«½Æ¸ê®Æ~

[µo°Ý] ¦³Ãö¤ñ¹ï¤£¦PEXCELªí¤¤¸ê®Æªº¤º®e¡AÂÇ¥H§ä¥X­«½Æ¸ê®Æ~

¥»©«³Ì«á¥Ñ jiunyanwu ©ó 2013-4-26 10:38 ½s¿è

¤µ¤Ñ§Ú¦³¦h­ÓexcelÀÉ®×
¨ä¤¤¤@­ÓexcelÀɮסA¦³¤@¤u§@ªí¦W¬°¡u°ò·Ç¸ê®Æ®w¡v
¸ÌÀYªº¤º®e¬°¡G
               ªü¿ß
               ªüª¯
               ªüµU
               ªü½Þ
      .....
     .....
¥t¤@­ÓÀɮסA¦³¤@­Ó¤u§@ªí¡A¦W¬°¡u¤ñ¹ï²Õ1¡v
¸ÌÀY¤º®e¬°¡G
         ¥N¸¹          ¹q¸Ü        ¸ê®Æ
   1     a               123        §Ú¬Oªü¿ß
   2     b               456       §Ú¬Oªüºµ
   3     c                789       ½Ö¤£¬O¤j½Þ
.....
...
¨ä¥LexcelÀÉ®×¥ç¤À§O¦³¤u§@ªí¡A¦W¬°¡u¤ñ¹ï²Õ2¡v¡B¡u¤ñ¹ï²Õ3¡v......µ¥¦h­ÓÀÉ®×

¤µ¤Ñ§Ú­n¥H¡u°ò·Ç¸ê®Æ®w¡v¬°°ò·Ç¡A¨Ó¤ñ¹ï¡u¤ñ¹ï²Õ1¡v¡B¤ñ¹ï²Õ2¡B¡K¡K¡A¬Ý¸ÌÀY¤º®e¬O§_¦³°ò·Ç¸ê®Æ®wªº¸ê®Æ
¦pªG¦³ªº¸Ü¡A´N±N¤ñ¹ï²Õªº²Å¦X¸ê®ÆÅã¥Ü¥X¨Ó¡C
(¦p¤W­z½d¨Ò¡A´N¦³²Ä¤@¦Cªº¸ê®Æ²Å¦X)

³o¼Ë­n¦p¦ó¥Îvba¨Ó§e²{©O¡H
¤p§Ì¤w¸g§xÂZ¦n¤[¤F¡A¤£ª¾¬O§_¦³°ª¤â¯à¬°¤p§Ì¸Ñ´b¡AÁÂÁ¡I¡I

¦^´_ 1# jiunyanwu
¤ñ¹ï²Õ¬O¤£¦PÀɮצWºÙ ÁÙ¬O ¤£¦P¤u§@ªí¦WºÙ?
¤£¦P¤ñ¹ï²Õªº¸ê®Æ³£¬O¦P¤@Äæ¶Ü? ¬O­þ¤@Äæ?
ªþ¤WÀÉ®×°µ¨Ò¤l·|¤ñ¸û¦n¸Ñ¨M~

TOP

¥»©«³Ì«á¥Ñ jiunyanwu ©ó 2013-4-26 16:02 ½s¿è

­ì«h¤W¡A¡u¤ñ¹ï²Õ¡v¬O«üÀɮצW¦r¡A¤u§@ªí¦W¦r³£¬OSheet1 ¡C
¥t¥~¡A­n¤ñ¹ïªº³£¬O¦P¤@Äæ~
ÁÂÁ¼ӤW¤j¤j´£¿ô¡A¤p§Ì¤W¶Ç¤F½d¨ÒÀÉ¡I

½d¨Ò.rar (20.06 KB)

½d¨Ò

TOP

¦^´_ 3# jiunyanwu
¦pªG¦³ªº¸Ü¡A´N±N¤ñ¹ï²Õªº²Å¦X¸ê®ÆÅã¥Ü¥X¨Ó¡C
³o¤]­n¦³½d¨Ò»¡©ú¦p¦óÅã¥Ü¥X¨Ó
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# GBKEE


   ÁÂÁ¤j¤j«ü±Ð
¦pªGÅã¥Ü¤è¦¡¬O¡u¥t¶}¤@­Ó¤u§@ªí¡A¨Ã±N¦³­«½Æ¸ê®Æªº¨º¨Ç¦C¡A½Æ»s¨ì¤u§@ªí¤º¡v¬O§_«Ü³Â·Ð¡H
©ÎªÌ¦³¨ä¥L¸û²³æ¤è¦¡¥iÅý§Ú­Ìª½±µª¾¹D­þ¨Ç¤ñ¹ï²Õªº­þ¨Ç¦C¦³­«½Æ©O¡H
¤£¦n·N«ä¡A±Ô­z¤£°÷²M·¡¡C

TOP

¦^´_ 5# jiunyanwu
·s¼W¼Ò²Õ¦Ü°ò·Ç¸ê®Æ®w , ½Æ»s¶K¤W¥N½X , ¦s¦¨xlsm
  1. Sub Test()
  2.     Dim f, i, r
  3.     Dim arName() As String
  4.     Dim wb As Workbook
  5.    
  6.     f = Application.GetOpenFilename(FileFilter:="Excel Files (*.xls*),*.xls*", Title:="¿ï¾Ü¤ñ¹ïÀÉ®×", MultiSelect:=True)
  7.     If Not IsArray(f) Then Exit Sub
  8.    
  9.     With Sheets("°ò·Ç¸ê®Æ®w")
  10.         For Each it In .Range("A1:A4,B1:B2")    '­n¿z¿ïªº¦r
  11.             If it <> "" Then
  12.                 If i = 0 Then
  13.                     ReDim arName(i)
  14.                 Else
  15.                     ReDim Preserve arName(i)
  16.                 End If
  17.                 arName(i) = "=""=*" & it & "*"""
  18.                 i = i + 1
  19.             End If
  20.         Next
  21.     End With
  22.    
  23.     Set wb = Workbooks.Add
  24.     With wb
  25.         With .Sheets(1)
  26.             .Name = "Criteria"
  27.             .[A1:C1] = Array("¥N¸¹", "¹q¸Ü", "¸ê®Æ")    'Write Header
  28.             .[C2].Resize(UBound(arName)).Value = Application.Transpose(arName)  'Write Criteria
  29.         End With
  30.         .Sheets(2).Name = "¿z¿ïµ²ªG"
  31.     End With
  32.    
  33.    
  34.     r = 1
  35.     For Each it In f
  36.         With Workbooks.Open(it).Sheets(1)
  37.             '¶i¶¥¿z¿ï
  38.             .Range("A1:C6").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=wb.Sheets(1).[A1].CurrentRegion, CopyToRange:=wb.Sheets(2).Range("A" & r), Unique:=False
  39.             .Parent.Close False
  40.         End With
  41.         With wb.Sheets(2)
  42.             If r > 1 Then .Rows(r).Delete xlShiftUp   'Delete Header
  43.             r = .Range("A" & .Rows.Count).End(xlUp).Row + 1
  44.         End With
  45.     Next
  46. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¨ü¤HÂI¤ô¤§®¦¡A¶··í´é¬u¥H³ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD