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

[µo°Ý] ¦p¦ó¦b±N¤ñ¹ï«áªº¸ê®Æ¡A¶ñ¤J«D³sÄò°Ï°ìªºÀx¦s®æ¤º

[µo°Ý] ¦p¦ó¦b±N¤ñ¹ï«áªº¸ê®Æ¡A¶ñ¤J«D³sÄò°Ï°ìªºÀx¦s®æ¤º

½Ð±Ð¦U¦ì«e½ú¤Î¥ý¶i¡A¦p¦ó¦b¡y¥X¶Ô¸ê®Æªí¡z¤¤§ä¥X¥¿½Tªº¹ïÀ³­È¶ñ¤J¡y­È¯Z¬z¶K¡z¤u§@ªí¤º¡C

TT1.rar (42.9 KB)

¦^´_ 1# sptakung1
  1. Sub Ex()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. With Sheet3
  4.   For Each A In .Range(.[A2], .[A2].End(xlDown))
  5.      For Each c In A.Offset(, 1).Resize(, 4)
  6.         d(A & c) = A.Offset(, 5)
  7.      Next
  8.   Next
  9. End With
  10. With Sheet6
  11. For i = 5 To 35
  12.   For j = 4 To 70 Step 3
  13.   mystr = .Cells(3, i) & .Cells(j + 1, 1)
  14.   .Cells(j, i) = d(mystr)
  15.   Next
  16. Next
  17. End With
  18. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

«D±`·PÁ¶Wª©¤j¤jªºÀ°¦£¡A§¹¥þ²Å¦X»Ý¨D¡A«D±`·PÁ¡C

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD