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

[µo°Ý] ¨âÄæ¸ê®Æ¦U3¼Ë ¦b²Ä¤TÄæ¶]¥X3*3ºØªº¥i¯à

[µo°Ý] ¨âÄæ¸ê®Æ¦U3¼Ë ¦b²Ä¤TÄæ¶]¥X3*3ºØªº¥i¯à

a 1
b 2
c 3
¨âÄæ¸ê®Æ¬°³o¼Ë
­n«ç»ò¦b²Ä¤TÄæ¶]¥X
a1
a2
a3
b1
b2
b3
c1
c2
c3
ªº­È~¦]¬°«e­±¨âÄæ·|ªº¶µ¥Ø¥i¯à¤£¥uabc
¦³¥i¯à·|®a­Ódef¤§Ãþªº...

¦^´_ 3# hcm19522
³¥·PÁ³o¦ì¤j¤j´£¨ÑªºªF¦è¡ã¦ý§ÚÁÙ­nµy·L¬ã¨s¤@¤U«¢«¢

TOP

¦^´_ 2# luhpro
·PÁ³o¦ì¤j¤jªº½d¨Ò¡ã¡ã¡ã³o¼Ë§Ú²×©ó¦³¤è¦V¥i¥H¥h°µ­×§ï¤F

TOP

http://blog.xuite.net/hcm19522/twblog/395562422

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2016-3-26 00:39 ½s¿è

¦^´_ 1# qaz200581
  1. Sub nn()
  2.   Dim lRow1&, lRow2&
  3.   Dim sStr$

  4.   lRow1 = 1
  5.   While Cells(lRow1, 1) <> ""
  6.     lRow2 = 1
  7.     While Cells(lRow2, 2) <> ""
  8.       sStr = sStr & Cells(lRow1, 1) & Cells(lRow2, 2) & Chr(10)
  9.       lRow2 = lRow2 + 1
  10.     Wend
  11.     lRow1 = lRow1 + 1
  12.   Wend
  13.   MsgBox sStr
  14. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD