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

¦hsheet³øªí¾ã²z°ÝÃD

¦hsheet³øªí¾ã²z°ÝÃD

½Ð°Ý¦U¦ì«e½ú

§Ú¦³¤@­ÓexcelÀÉ¡A
¸Ì­±¦³12­Ó¤£¦P¦WºÙªºsheet(°²³]1-12)¡A
¨C­Ósheet¸Ì­±¦³¤£¦Pªº¦C¦ì¡A
¦ý¬O§Ú­n¾ã²zªº¦WºÙ³£¬O¬Û¦Pªº¡A
¤ñ¤è»¡¡A¨C­Ósheet¸Ì­±³£¦³a¡Bb¡Bc¡Bd¡A4­Ó¦WºÙ¬O§Ú­n¾ã²zªº¼Æ­È¡A
©Ò¥H§Ú·Q±q³o12­Ósheet¸Ì­±²£¥X¤@±iªí¡A
Äæ¦ì¬O1-12¡A¦C¦ì¬Oa¡Bb¡Bc¡Bd¡C

³o¼Ë¦³¿ìªk°µ¶Ü?
·s¤â¤W¸ô

¦^´_ 1# ippo380
¥i¥H¤W¶Ç°ÝÃD½d¨ÒÀÉ¡H

TOP

¦^´_ 1# ippo380

a,b,c,d¥|­Ó¦WºÙ©Ò¦bªº¦ì¸m¬O§_¬Û¦P?
«Øij¤W¶Ç½d¨ÒÀÉ®×»¡©ú
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

½Ð°Ý¤@¤U

¦pªþ¥ó©Ò¥Ü¡A
§Ú·Q­n¦bexcel¤¤²£¥Í¤@­Ó·sªºsheet¡A
·sªºsheet¸Ì­±§Q¥Îsheet¦WºÙ°µ¬°¾î¦C
¦A§Q¥Î¦Usheet¤º¶À¦âmartªº¦WºÙ°µª½¦C¡A
µM«á§â¹ïÀ³ªº¼Æ­È¾ã²z¥X¨Ó¡C
¨Ò.zip (31.75 KB)

¤£ª¾¹D³o¼Ë»¡©ú²M·¡¶Ü?

ÁÂÁÂ
·s¤â¤W¸ô

TOP

¦^´_ 2# p212


¤w¤W¶ÇÀɮסA
ÁÂÁÂ
·s¤â¤W¸ô

TOP

¥»©«³Ì«á¥Ñ yen956 ©ó 2014-2-28 12:24 ½s¿è

¦^´_ 5# ippo380
¥»VBA code ¦b¤U¦C±ø¥ó¤U, ¤~¯à¥¿±`¹B§@
1. "·sªºsheet" ¼ÐÃD¦Cªº ¦WºÙ, ¦p 3¤ë¡B4¤ë¡B5¤ëµ¥ªº¶¶§Ç À³»P ¤u§@ªí ªº ¦WºÙ¶¶§Ç ¤@­P
2, "·sªºsheet" ÄæAªº¦WºÙ, ¦p¡i«D¥¿Â¾­û¤uÁ~¸ê¡j¡B¡i«D¥¿Â¾­û¤uÁ~¸ê¡jµ¥ªº¶¶§Ç,
À³»P VBA ¤¤  
findStr = Array("«D¥¿Â¾­û¤uÁ~¸ê", "¥¿Â¾­û¤uÁ~¸ê", "c", "d")
ªº ¶¶§Ç ¤@­P
3. "·sªºsheet" ÄæAªº¦WºÙ, ¦p¡i«D¥¿Â¾­û¤uÁ~¸ê¡jµ¥«e«á§¡¤£¯à¦³ªÅ¥Õ
¦p¤U¹Ï¡G

´ú¸Õµ²ªG¦p¤U¡G
  1. Option Explicit
  2. Option Base 1
  3. Private Sub ·J¾ãButton_Click()
  4.     Dim Sh, newSh As Object
  5.     Dim i, j, shcnt As Integer
  6.     Dim findStr
  7.     Dim findC As Range
  8.    
  9.     Set newSh = ThisWorkbook.Sheets("·sªºsheet")
  10.     findStr = Array("«D¥¿Â¾­û¤uÁ~¸ê", "¥¿Â¾­û¤uÁ~¸ê", "c", "d")
  11.    
  12.     shcnt = ThisWorkbook.Sheets.Count
  13.     For j = 1 To shcnt - 1
  14.         Set Sh = Sheets(j)
  15.         If Sh.Name <> "·sªºsheet" Then
  16.             For i = 1 To 4
  17.                 Set findC = Sh.Columns(1).Find( _
  18.                     What:=findStr(i), _
  19.                     After:=Sh.[A1], _
  20.                     LookIn:=xlValues, _
  21.                     LookAt:=xlWhole)
  22.                 If Not findC Is Nothing Then
  23.                     newSh.Cells(i + 1, j + 1).Value = findC.Offset(0, 2)
  24.                 End If
  25.             Next
  26.         End If
  27.     Next
  28. End Sub
½Æ»s¥N½X
¦h³øªí¾ã²z.7z
http://www.mediafire.com/download/2vwo28i7wvd59dh/%E5%A4%9A%E5%A0%B1%E8%A1%A8%E6%95%B4%E7%90%86.7z

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD