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

¨C¤é¶i³f»P¾ú¥v®w¦s¸ê®Æ

¨C¤é¶i³f»P¾ú¥v®w¦s¸ê®Æ

§ÚªºÀɮצ³¨â±isheet   ¡u¶i³f¡v¡B¡u¾ú¥v¶i³f¡v
¨C¤Ñ¡u¶i³f¡vsheet³£·|¤£¤@¼Ë¡A¦Ó¡u¾ú¥v¶i³f¡v´N¬O§â¨C¤Ñ¡u¶i³f¡v«O¯d¤U¨Ó

-------------------------------------------------------------------------------------
DAY1  ¡u¶i³f¡v ¦³ A1¡BA3¡BB1¡BB2  ¥|ºØ°Ó«~
«h¡u¾ú¥v¶i³f¡v´N·|¦³A1¡BA3¡BB1¡BB2  ¥|ºØ°Ó«~

¨ì¤F²Ä¤G¤Ñ
DAY2 ¡u¶i³f¡v¶i¤F A1¡BA3¡BB1¡BC1¡BC2 ¤­ºØ°Ó«~
«h¡u¾ú¥v¶i³f¡v´N·| A1¡BA3¡BB1¡BB2¡BC1¡BC2  ¤»ºØ°Ó«~

¨ì¤F²Ä¤T¤Ñ  
DAY2 ¡u¶i³f¡v¶i¤F A3¡BB1¡BC1¡BC2¡BC3
«h¡u¾ú¥v¶i³f¡v´N·| A1¡BA3¡BB1¡BB2¡BC1¡BC2 ¡BC3 ¤CºØ°Ó«~

¤]´N¬O¹L¥h´¿¸g¶i³fªº¸ê®Æ  §Ú­n¯d¤U¨Ó  ·s¼Wªº¶i³f°Ó«~  ª½±µ¥[¦b¤U­±  
§Ú¥»¨Ó·Q¦A¡u¾ú¥v¶i³f¡v¼g¤½¦¡  ¦ý¤£ºÞ«ç»ò¼g ¾ú¥v¸ê®ÆÁ`¬OµLªk«O¯d  >"<
·Q½Ð°Ý¦U¦ì¦³¨S¦³¦n¤èªk??  ·PÁ¤j®a~

DAY.rar (18.54 KB)

§ÚªºÀɮצ³¨â±isheet   ¡u¶i³f¡v¡B¡u¾ú¥v¶i³f¡v
¨C¤Ñ¡u¶i³f¡vsheet³£·|¤£¤@¼Ë¡A¦Ó¡u¾ú¥v¶i³f¡v´N¬O§â¨C¤Ñ¡u ...
zero1019 µoªí©ó 2014-9-19 00:27
  1. Private Sub cbTran_Click()
  2.   Dim lSRow&, lTRow&
  3.   Dim vD
  4.   Dim wsSou As Worksheet
  5.   
  6.   Set vD = CreateObject("Scripting.Dictionary")
  7.   lSRow = 2
  8.   Set wsSou = Sheets("¾ú¥v¶i³f")
  9.   With wsSou
  10.     Do While .Cells(lSRow, 1) <> ""
  11.       With .Cells(lSRow, 1)
  12.         vD(.Value) = .Offset(, 2)
  13.       End With
  14.       lSRow = lSRow + 1
  15.     Loop
  16.   End With
  17.   
  18.   lTRow = 2
  19.   With Sheets("¶i³f")
  20.     Do While .Cells(lTRow, 1) <> ""
  21.       With .Cells(lTRow, 1)
  22.         If Not vD.Exists(.Value) Then
  23.           vD(.Value) = .Offset(, 1)
  24.           wsSou.Cells(lSRow, 1) = .Value
  25.           wsSou.Cells(lSRow, 2) = .Offset(, 1)
  26.           lSRow = lSRow + 1
  27.         End If
  28.         .Resize(1, 2).Delete xlShiftUp
  29.       End With
  30.     Loop
  31.     MsgBox "¾ú¥v¶i³f¸ê®Æ¤w§ó·s§¹²¦..."
  32.     .Cells(2, 1).Select
  33.   End With
  34. End Sub
½Æ»s¥N½X
¨C¤é¶i³f»P¾ú¥v®w¦s¸ê®Æ-a.zip (17.61 KB)

TOP

¦^´_ 2# luhpro


    ¦n¼F®`~~~·PÁ·PÁÂ~~§Ú¨Ó¬ã¨s¤@¤U  ^^

TOP

        ÀR«ä¦Û¦b : ®É®É¦n¤ß´N¬O®É®É¦n¤é¡C
ªð¦^¦Cªí ¤W¤@¥DÃD