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

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

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

¤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

­ì¨Ó«ö¤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

¦^´_ 2# Hsieh

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

TOP

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

TOP

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