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

[µo°Ý] ½Ð¤j®aÀ°§Ú¬Ý³o­Ó°ÝÃD

[µo°Ý] ½Ð¤j®aÀ°§Ú¬Ý³o­Ó°ÝÃD

[ª©¥DºÞ²z¯d¨¥]
  • Hsieh(2010-12-14 15:32): ½ÐÀˬd©pªºªþ¥ó

¥»©«³Ì«á¥Ñ sandra_wang ©ó 2010-12-14 17:02 ½s¿è

[attach]4084[/attach][attach]4083[/attach]§Ú·Q­«Cells(6,2)±Æ¥X³o¼Ëªº¶¶§Ç¡A
²Ä¤@½X¬O±q1¶}©l¡A¨ìCells(1,2)ªº¼Æ¦r
²Ä¤G½X¬O¤U©³½u"_"
²Ä¤T½X¬O±q1¶}©l¡A¨ìCells(6,1)ªº¼Æ¦r
½Ð°Ý§Ú­n«ç»ò¼gVBA©O?
§Ú¼g¥X¨Óªº¶]³£¤£¹ï¡A½Ð¤j®aÀ°§Ú¸Ñµª¤@¤U¡AÁÂÁÂ!
Àɮצbªþ¥ó¡C
(ªþ¥ó§ó·s¤F~)

°ÝÃD1214.zip (6.64 KB)

¦^´_ 1# sandra_wang


    §Úªºªþ¥ó§ó·s¤F!

°ÝÃD1214.zip (6.64 KB)

TOP

¦^´_ 2# sandra_wang
  1. Sub aa()
  2. Dim a As Integer, b As Integer, k As Integer
  3. k = 2
  4. For a = 1 To Cells(1, 2)
  5.     For b = 1 To Cells(6, 1)
  6.         Cells(6, k) = a & "_" & b
  7.         k = k + 1
  8.     Next b
  9. Next a
  10. End Sub
½Æ»s¥N½X

TOP

¦^´_ 3# GBKEE


    ·PÁÂGBKEEªº¸Ñµª¡A§Úª¾¹D­þ¸Ì¼g¿ù¤F!:)

TOP

        ÀR«ä¦Û¦b : ¹D¼w¬O´£ª@¦Û§Úªº©ú¿O¡A¤£¸Ó¬O¨þ¥¸§O¤HªºÃ@¤l¡C
ªð¦^¦Cªí ¤W¤@¥DÃD