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

[µo°Ý] ¸ê®ÆÂà¸m(§Q¥Îvba¦Û°Ê§ó·s)

[µo°Ý] ¸ê®ÆÂà¸m(§Q¥Îvba¦Û°Ê§ó·s)

¤j®a¦n
·Q½Ð°Ý¤j®a¥H¤U¸ê®ÆÂà¸m
¸Ó¦p¦ó¥Îvba§¹¦¨

­ì©l¸ê®Æ¦p¤U¡]sheet1)
²Ä¤@Äæ    ²Ä¤GÄæ
    A            1
    A            2
    B            1
    B            2
    B            3
    C            1
Âà¸m«á§e²{¦p¤U(sheet2)
²Ä¤@Äæ    ²Ä¤GÄæ    ²Ä¤TÄæ
    A            B             C
    1            1              1
    2            2
                  3   

¥Ñ©ó­ì©l¸ê®Æ(sheet1)·|¤£©w´Á·s¼W(¨Ò¦p©ó²Ä¤@Ä椤¥[¤JA¡F²Ä¤GÄ椤¥[¤J3)
¦]¦¹§Æ±æ¥i¥H³z¹Lvba
¦bsheet1·s¼W¸ê®Æ«á
«ö¤Uvba»s§@ªº«ö¶s
¥i¥Hª½±µ¦bsheet2¹ïÀ³§ó·s¸ê®Æ

ÁÂÁ¡ã

¤j®a¦n
·Q½Ð°Ý¤j®a¥H¤U¸ê®ÆÂà¸m
¸Ó¦p¦ó¥Îvba§¹¦¨

­ì©l¸ê®Æ¦p¤U¡]sheet1)
²Ä¤@Äæ    ²Ä¤GÄæ
    A    ...
ciboybj µoªí©ó 2015-1-29 13:12
  1. Sub NN()
  2.   Dim iCol%
  3.   Dim lRows&
  4.   Dim sStr$
  5.   Dim vD, vRow
  6.   
  7.   Set vD = CreateObject("Scripting.Dictionary")
  8.   Set vRow = CreateObject("Scripting.Dictionary")
  9.   lRows = 1
  10.   iCol = 1
  11.   Sheets("Sheet2").Cells.Clear
  12.   With Sheets("Sheet1")
  13.     While .Cells(lRows, 1) <> ""
  14.       sStr = CStr(.Cells(lRows, 1))
  15.       If vD.Exists(sStr) Then
  16.         vRow(sStr) = vRow(sStr) + 1
  17.       Else
  18.         vD(sStr) = iCol
  19.         iCol = iCol + 1
  20.         vRow(sStr) = 1
  21.         Sheets("Sheet2").Cells(vRow(sStr), vD(sStr)) = .Cells(lRows, 1)
  22.         vRow(sStr) = vRow(sStr) + 1
  23.       End If
  24.       Sheets("Sheet2").Cells(vRow(sStr), vD(sStr)) = .Cells(lRows, 2)
  25.       lRows = lRows + 1
  26.     Wend
  27.   End With
  28. End Sub
½Æ»s¥N½X

TOP

¤Ó·PÁ¤F!!
¤£¦n·N«ä¡A¦pªG±z¦³ªÅ¥i¥H¤j·§»¡©ú¤@¤Uµ{¦¡½X¶Ü?
ÁÂÁÂ~~~~~~~~

TOP

        ÀR«ä¦Û¦b : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD