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

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

¦^´_ 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

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD