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

[µo°Ý] ½Ð°Ý¦³¨S¦³§Ö³t¾ã²zªº¤èªk¡H

[µo°Ý] ½Ð°Ý¦³¨S¦³§Ö³t¾ã²zªº¤èªk¡H

°ÝÃDÀÉ.zip (2.07 KB)

½Ð°Ý¦U¦ì¥ý¶i¡A¦pªþ¥ó¡A
¦³¨S¦³§Ö³t¾ã²zªº¤èªk¡A±qª«®ÆÁ`ÀÉÂà´«¦¨¾ã²zÀɪº¼Ë¤l¡H
ªþ¥ó¬O¥Î¤â¤u¤@¶µ¤@¶µ§Ë¦¨ªº...
Á`¦@¬ù¦³1¤d¦h¶µ§÷½s...¥[¤W§å¦¸¦U¦³1~6§å¤£µ¥...
¦³¨S¦³§Ö³t¤S¦n¥Îªº¤½¦¡©Î¤èªk¡HÁÂÁ¡C

¦^´_ 1# turbine
  1. Sub YY()
  2. RS = 2: RT = 2
  3. With Sheets("ª«®ÆÁ`ÀÉ")
  4.   Do While .Cells(RS, "A") <> ""
  5.      CT = 4
  6.      If .Cells(RS, "A") <> .Cells(RS - 1, "A") Then
  7.         .Cells(RS, "A").Resize(1, 3).Copy Sheets("¾ã²zÀÉ").Cells(RT, "A")
  8.          Do While .Cells(RS + 1, "A") = .Cells(RS, "A")
  9.            .Cells(RS + 1, "B").Resize(1, 2).Copy Sheets("¾ã²zÀÉ").Cells(RT, CT)
  10.             RS = RS + 1
  11.             CT = CT + 2
  12.          Loop
  13.          RT = RT + 1
  14.      End If
  15.      RS = RS + 1
  16.   Loop
  17. End With
  18. End Sub
½Æ»s¥N½X

TOP

¹ï¤£°_¡A¤p§Ì§Ú§¹¥þ¤£¤F¸Ñµ{¦¡½X...
½Ð°Ý¤j¤j¥i¥H³v¬q»¡©ú¨C¬qªº¥Î·N¶Ü¡H
¥t¥~¡A¬O¤£¬O±Nµ{¦¡½X½Æ»s«á¶K¨ìµ{¦¡½X°Ï´N¦n¡H
±µ¤U¨Ó­n«ç»òÅý¥L°õ¦æ¡H

TOP

¦^´_ 3# turbine

¦bVBA½s¿è¾¹¤º
1.´¡¤J/¼Ò²Õ   ²£¥ÍModule1
2.¦bModule1¤WÂùÂI  ±Nµ{¦¡½X¶K¦Ü¥k¤è½s¿è°Ï
3.«ö °õ¦æ(¦b¤W¤è¤u¨ã¦C ¦V¥kªº¤T¨¤§Î)


°ÝÃDÀÉ.rar (8.84 KB)

TOP

«z³á~~~¥i¥H¤F¡I
ÁÂÁ¤j¤jªº«ü¾É~~~
¥u¬O...¯à§_©âªÅ»¡©ú³o¬qµ{¦¡½Xªº²[·N¡A¦nÅý¤p§Ì¥i¥H¦h¥[¤F¸Ñ~~~
µL½×¦p¦ó¡AÁÙ¬O·P¿E¤£ºÉ§r~~~

TOP

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD