Actividad pública reciente
Ha valorado "Excelente" la respuesta
Como poner 1600 números aleatorios sin repetir
Public Sub DistribuciónAleatoriaEnUnRango() Dim col1 As New Collection, col2 As New Collection Dim lngElem As Long Dim n As Long Application.ScreenUpdating = False For n = 1 To 1600 col1.Add n Next n For n = col1.Count To 1 Step -1 lngElem = Int(n *...