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

¥i¥H½Ð±Ð·íÄæ¦ì¤£¬O©T©w¦b¤@­Ó¦ì¸m§Ú­n¦p¦ócopy¨ì²Ä2¬¡­¶

¦^´_ 9# hu0318s

¦pªG¤£¬O¾ã»ôªº¸ê®Æ¶ô¡A¥u¯à¹³10#GBKEE¤jªº¤è¦¡¡A¤@¯ë±¡ªpÀ³¸Ó¬O¤ñ¸û¤Ö³o¼Ë©ñ¸ê®Æ
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¦^´_ 10# GBKEE


    ÁÂÁ¤j¤j,¸Ñ¶}§ÚªººÃ¼{,·PÁ¤j¤jªºÀ°¦£

TOP

¦^´_ 11# ML089
  1. Option Base 1
  2. Sub Ex()
  3.     Dim AR(), i As Integer, A As Range
  4.     AR = Array("¤u¥O", "«~¦W", "MRP®Æ»ô¤é")
  5.     With Sheet1
  6.         For i = 1 To UBound(AR)
  7.             Set A = .Cells.Find(AR(i), lookat:=xlWhole)
  8.             If Not A Is Nothing Then .Range(A, A.End(xlDown)).Copy Sheet3.Cells(1, i)
  9.         Next
  10.     End With
  11. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 13# GBKEE

GBKEE¤j Æg¡A ·PÁ«ü±Ð¡A¤S¾Ç¤@©Û

AR = Array("¤u¥O", "«~¦W", "MRP®Æ»ô¤é") ±N­n§äªº©ñ¦b°}¦C¤¤¡A±N¯àµ{¦¡½Xºc¬[¤Æ«á´N¯à¼u©Ê¬d¸ß¡C
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-12-1 16:16 ½s¿è

Book1.rar (21.77 KB) Book2.rar (7.86 KB) ¦^´_ 13# GBKEE


    ÁÂÁ¤j¤jªº±Ð¾É,¦ý§Ú°²³]§ÚªºÀÉ®×book1,xls ¦bc:\  §Ú¤@¼Ë­ncopy"¤u¥O" "«~¦W" "MRP®Æ»ô¤é" ¨ì®à­±¤WªºBOOK2.XLS ,¦ý§Ú­×§ï¹L¯»¦h¤è¦¡ÁÙ·|¥X²{¤U­±ªº°ÝÃD,³øºp§Ú¤S­n³Â·Ð¤j¤j们

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2013-12-1 16:35 ½s¿è

¦^´_ 15# hu0318s
  1. Option Base 1
  2. Sub Ex()
  3.     Dim AR(), i As Integer, A As Range
  4.      AR = Array("¤u¥O", "«~¦W", "MRP®Æ»ô¤é")
  5.     With Workbooks.Open(Filename:="C:\book1.xls") 'Àˬd¬Ý¬Ý C:¦³book1.xls¶Ü?
  6.         For i = 1 To UBound(AR)
  7.             Set A = .Worksheets("sheet1").Cells.Find(AR(i), lookat:=xlWhole)
  8.             If Not A Is Nothing Then .Worksheets("sheet1").Range(A, A.End(xlDown)).Copy Workbooks("book2.xls").Worksheets("Sheet3").Cells(1, i)
  9.             '¦p³oµ{¦¡½X¬OWorkbooks("book2.xls")±M®×ªºµ{¦¡½X
  10.             'If Not A Is Nothing Then .Worksheets("sheet1").Range(A, A.End(xlDown)).Copy Sheet3.Cells(1, i)
  11.             'Sheet3 ¬O¤u§@ªíª«¥óªº¦WºÙ µLªk¥ÎWorkbooks("book2.xls").Sheet3
  12.             '»Ý¬OWorkbooks("book2.xls").Worksheets("¤u§@ªí¦WºÙ")
  13.         Next
  14.         .Close False
  15.     End With
  16. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 16# GBKEE


    ÁÂÁ¤j¤jªºÀ°¦£,­ì¨Ó§Ú¤@ª½·Q»¡¥Îactivesworkbook¤è¦¡,¥h¨úªº§Ú­nªº°T®§,ÁÂÁ¤j¤jªº±Ð¾ÉÅý§Ú¾Ç²ß§ó¦h·svba ¼gªk  ÁÂÁ§A

TOP

¥»©«³Ì«á¥Ñ hu0318s ©ó 2013-12-3 00:32 ½s¿è

¦^´_ 16# GBKEE


    ©êºp§Ú¦b½m²ß®Éµo²{§Ú¥Î¤j¤j¥æªºµ{¦¡½m²ß,µo²{§Ú¥Îworksheets("a½u¥Í²£±Æµ{")¡AaªºÅܼƷ|§ì¤£¨ì,¦ý§Ú½m²ß¥Îworksheets.add   worksheets("sheet1"),aªºÅܼƥi¥H±a¤J,§Ú¦³ÂI·d¤£²M·¡¬O§Ú­ì¥»Àɮצ³¤H®a³]©w¦í,ÁÙ¬O¦]§Ú"a½u¥Í²£±Æµ{"¥L¤£¬O¯uªºsheet1 ,©êºp¤S³Â·Ð¤j¤j­Ì
[attachimg]16936[/attachim g]

¦Û°Ê±Æµ{ªí-TEST.rar (624.65 KB)

Book2.rar (15.8 KB)

TOP

¦^´_ 18# hu0318s

·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 19# GBKEE


   ÁÂÁ¤j¤jªº«ü¾É,§Ú¦b¥h¬Ý¤@¤U®Ñ¦p¦ó³B²z«OÅ@ªº±¡ªp,ÁÂÁ¤j¤jªºÀ°¦£

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD