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

«ç¼Ë±N¤@¨Ç¼Æ­ÈRAMDOM ¨ì¤£¦PªºÀx¦s®æ

¦pªG¤£­­©w单¤¸®æªº话¡A2#´N¥i¥H¤F
¦pªG¬O¦b­­©wªº单¤¸®æ¤¤随Éóªº话¡A´N¦³点³Â烦¤F¡C
­n¥ý将­­©w单¤¸®æ¦s¤J数组A¡A¨Ï¥Î经¨åºâªk产¥Í¤£­«Î`随Éó数¡A¶ñ¤J¤W­±数组Aªº¦P«¬数组B
¦A将A1¶ñ¤J数组B编号为1对应¤U标ªº¨º个数组A单¤¸®æ¤¤
¦V°ª¤â学习

TOP

For i = 0 To 9
     Cells(WorkSheetFunction.RandBetween(2,Rows.Count*Columns.Count)).Value = Range("A1").Offset(i, 0)
Next
¦V°ª¤â学习

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD