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

[µo°Ý] ¨ú¤u§@ªí¦WºÙ¦AÂШî¦h¦¸

§Aªº¥N½X­«Âжñ¦bSheets("aa").Range("B1").Resize(20)
·íµM°N·|¨£¨ì³Ì«á¤@­¶ªº­¶¦W, ¥t¥~¥Ñ7~³Ì«á¤@­¶ªº­¶¦W³£¬O¼Æ¦r?

TOP

§Ú¦³ÂI©_©Ç,¬°¬Æ»òmissbb¥ý¶i¦³¹L¤@¥y Dim shtname As Integer, ¬O¤£¬OÁÙ¦³«á´Á¤Þ¥Î sheets.name ?
¦ý«Å§i¦¨¾ã¼Æ!

TOP

for i = §Aªº¤U¼Ð to  §Aªº¤W¼Ð
  for j = 1 to 20
    [a1]=join([a1], §Aªºª«¥ó)
      next i,j

TOP

        ÀR«ä¦Û¦b : ¡i¬O§_µo´§¤F¨}¯à¡H¡j¤H¶¡¹Ø©R¦]¬°µu¼È¡A¤~§óÅã±o¬Ã¶Q¡CÃø±o¨Ó¤@½ë¤H¶¡¡AÀ³°Ý¬O§_¬°¤H¶¡µo´§¤F¦Û¤vªº¨}¯à¡A¦Ó¤£­n¤@¨ý¨Dªø¹Ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD