ªð¦^¦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 : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD