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

[µo°Ý] ¦b¦P¤@¦C¦P®É¤ñ¹ï¨âÄæ¸ê®Æ¤èªk

[µo°Ý] ¦b¦P¤@¦C¦P®É¤ñ¹ï¨âÄæ¸ê®Æ¤èªk

¦U¦ì¥ý¶i¡A¤p§Ì¦]¤u§@»Ý­n­n¥Îexcel °µ¤@¨Ç¸ê®Æªº³B²z¡A¥Ø«e¹J¨ì¨Ç°ÝÃD¡A§Æ±æ¦U¦ì¥ý¶i¯àÀ°§Ú¸Ñ´b

«~¸¹     ¦WºÙ     »sµ{    ¤u§Ç    ¤u®É
123      °Å¤M     ¤U®Æ       1       100
123      °Å¤M     ²Ê­F       2       200
123      °Å¤M     ¬ã¿i       3       100
124      ¤e¤l     ¤U®Æ       1       100

¸ê®Æµ²ºc¤j·§¬O³o¼Ë¡A§Ú·Q¦P®É»`´M·í«~¸¹123¡B¤u§Ç¬O1¡A³oµ§¸ê®Æ¦Cªº¦ì¸m¡A¦]¬°§Ú·Q§â¬Û¹ïÀ³¤§¤u®É³oÄæ¦ì¸ê®ÆÂ^¨ú¥X¨Ó¡A³Â·Ð¦U¦ì¥ý¶i¤F~ÁÂÁÂ

¦^´_ 1# °²­±¶W¤H
¶i¶¥¿z¿ï§Y¥i
play.gif
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh

©êºp!¤£ª¾¬O§_¦³½d¨ÒÀɮסA¼v¤ù¬Ý¤£¤Ó²M³B¸Ô²Ó¤º®e

TOP

­ì¨Ó«ö¤U¥h´N¥i¥H©ñ¤j¡AÁÂÁ±z
¤£ª¾¹D¬O§_ÁÙ¦³¨ä¥L¤èªk?¦]¬°¸ê®Æ´X¸Uµ§¡AÄæ¦ì¼Æ¤]«Ü¦h
§Ú¥D­n¬O·Qª¾¹D¸Ó¦Cªº¦ì¸m¡AµM«áÂ^¨ú¬Y´X­ÓÄæ¦ìªº¸ê®Æ¶ñ¨ì§OªºÄæ¦ì¤W

TOP

  1. «~¸¹     ¦WºÙ     »sµ{  ¤u®É
  2. 123      °Å¤M     ¤U®Æ       1       100
  3. 123      °Å¤M     ²Ê­F       2       200
  4. 123      °Å¤M     ¬ã¿i       3       100
  5. 124      ¤e¤l     ¤U®Æ       1       100
½Æ»s¥N½X
°²³]§Aªº¸ê®Æ¬O¦p¤W­zªº¤è¦¡±Æ¦C(¤]´N¬O "«~¸¹"¦bA1 , "¦WºÙ"¦bB1 , "123"¦bA2..¥H¦¹Ãþ±À)
§Ú·|¥Î¥H¤Uªº¤è¦¡¸`¿ï¥X¨Ó
PS:§â¸ê®Æ©ñ¦bSheet1 , ¦h¶}¤@­Ósheet2(¸ê®Æ·|Âà¦s¨ì³o)
  1. Sub Trans()
  2. Dim New_Count,Data_Count,I as Double
  3. Dim Key_Word1 as string
  4. Dim Key_Word2 as string

  5. worksheets(2).range("A1").value="«~¸¹"
  6. worksheets(2).range("B1").value="¤u§Ç"

  7. Data_Count=worksheets(1).range("A65536").end(xlup).row

  8. For I = 1 to Data_Count
  9.       Key_Word1=worksheets(1).range("A" & I).value  '«~¸¹
  10.       Key_Word2=worksheets(1).range("D" & I).value  '¤u§Ç

  11.           If Key_Word1="123" and Key_Word1="1" Then
  12.                    New_Count=worksheets(2).range("A65536").end(xlup).row
  13.                    worksheets(2).range("A" & New_Count+1).value=Key_Word1
  14.                    worksheets(2).range("B" & New_Count+1).value=Key_Word2
  15.         End IF
  16. Next I
  17. end sub
½Æ»s¥N½X

TOP

§Ú¥D­n¬O·Qª¾¹D¸Ó¦Cªº¦ì¸m¡AµM«áÂ^¨ú¬Y´X­ÓÄæ¦ìªº¸ê®Æ¶ñ¨ì§OªºÄæ¦ì¤W°²­±¶W¤H µoªí©ó 2012/8/2 00:24

¤W¶ÇÀɮרӬݬÝ

TOP

¦^´_ 5# smouse0220


¯uªº¤ÓÁÂÁ§A¤F¡A³o¼ËÅý¤S¯àÄ~Äò¼g¤U¥h¤F!

²Ä15¦C¤¤ªº                                   If Key_Word1="123" and Key_Word1="1" Then
¦n¹³¦³ÂI°ÝÃD¡A§Ú­×§ï¦¨          If Key_Word1="123" and Key_Word2="2" Then
´N¯à¥¿±`§PÂ_¤F

TOP

­è¸Õ¤F¤@¤U¡AÁÙ¬O¤£¦æ
§Ú·Q­n°µªº¬O
·í§PÂ_«~¸¹©M¤u§Ç¬O¦b¦P¤@¦C®É
¥h§ì¦b¦P¤@¦C¸Ì­±¤u®É³o­Ó¸ê®Æ

­ì¥»¥u¥ÎvlooKup ¥h§PÂ_©M§ì¸ê®Æ¡A¦ý¥L¥u¯à§PÂ_³æ¤@ªº¸ê®Æ
·í¹J¨ì¦hµ§­«½Æªº¸ê®Æ®É¥u·|¥h§ì³Ì¥ý§äªº¨º¤@µ§
ºN¯Á¤F¦n¤[
¤~·Q¨ìVBA©Î³\¯à¸Ñ¨M³o°ÝÃD
½Ð­Ó¦ì¥ý¶i«üÂI¤@¤U!!ÁÂÁÂ

TOP

¦^´_ 6# GBKEE


¦hµ§¸ê®Æ§PÂ_.rar (9.03 KB)

³o¥u¬OÃþ¦ü­n³B²zªºÀÉ®×
Àɮרӷ½¬O
²Ä¤@­Ó¤u§@­¶ªº«~¸¹Äæ¥ÑBOMªí®i¶}¡A«á­±ªº¦WºÙ¡B»sµ{µ¥³£¬O«á¨Ó­n±q¨ä¥L¤u§@­¶§ì¹L¨Ó¶ñ¤J
«á­±¤u§@­¶¬O¥Ñ²{³õ³æ¦ì¹ê»Ú±¡ªp¥Í²£±¡ªp¦^³ø¦^¨Ó

¥Ø«e­n³B²zªº°Ê§@
²Ä¤@­Ó¤u§@­¶ªº«~¸¹Äæ³£¬O¿W¥ß¤£·|­«½Æ¡A¦ý¨ä¥L¤u§@­¶ªº«~¸¹·|­«½Æ(¦]¬°¸ê®Æ¨Ó·½´N¬O³o¼Ë)¡A©Ò¥H§Ú¤~·|·Q¬JµM¸Ì­±¦³¤u§Ç¡A´N¥H¤u§Ç°µ²Ä¤G§PÂ_±ø¥ó¥h§ì¨ú¦P¤@¦C¸Ì­±¦p¤u®Éµ¥¨ä¥L¸ê®Æ¦^¼g¨ì¤u§@­¶1¸Ì­±¡A¦pªG¦³¤T­Ó¬Û¦P«~¸¹¦ý¤u§Ç¤£¦Pªº¸ê®Æ¡A·|¨Ì·Ó¤u§Ç¶¶§Ç¦b¤U­±¤S·s¼W¨â¦C¡A¦A§â¸ê®Æ§ì¶i¨Ó(³o³¡¤À¥Ø«e¼g¹DÅܦ¨µL½a°j°é¡AÁÙ¦b°Ê¸£¤¤)

TOP

¦^´_ 9# °²­±¶W¤H

¶i¶¥¿z¿ï«Ü®e©ö¹F¦¨
play.gif
¦pªG°í«ù¼g°j°é
  1. Sub ex()
  2. Dim Ar()
  3. With Sheet1
  4. For Each a In .Range(.[A2], .[A2].End(xlDown))
  5.    With Sheet2
  6.       For Each b In .Range(.[A2], .[A2].End(xlDown))
  7.          If b = a Then
  8.          ReDim Preserve Ar(s)
  9.          Ar(s) = Array(b.Value, b.Offset(, 1).Value, b.Offset(, 2).Value, b.Offset(, 4).Value)
  10.          s = s + 1
  11.          End If
  12.       Next
  13.    End With
  14.    Sheet3.[A65536].End(xlUp).Offset(1).Resize(s, 4) = Application.Transpose(Application.Transpose(Ar))
  15.    Erase Ar
  16.    s = 0
  17. Next
  18. End With
  19. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ±o²z­nÄǤH¡A²zª½­n®ð©M¡C
ªð¦^¦Cªí ¤W¤@¥DÃD