¿Cómo mostrar todos los números del 1 al 9 organizados en cinco dígitos en Excel? Simplemente organícelo en un número de cinco dígitos.
Condición 1: No contiene 0.
Condición 2: No puede haber números duplicados.
Rango: 12345~98765
Hay 57205 números coincidentes.
Haga clic derecho en la etiqueta de la hoja de trabajo → Ver código, pegue el siguiente código en VBE, presione F5 para ejecutar y pegue los resultados en la columna a.
Sub chiefzjh
Dim mStr$,I,k,Tmp$,mDic
set mDic = CreateObject(" scripting . diccionario ")
mStr = "123456789 "
Para i = 12345 a 98765
Si InStr(i, "0") = 0, salga de "No"
Para k = 1 a 4 'Sin punteros duplicados
Si 5 - Len(Replace(i, Mid(i, k, 1), " ")) gt = 2, entonces salga
Siguiente k
mDic. Agregar I, " " 'Agregar a Dic
Terminará si...
Siguiente i
i = mDic. recuento
rango(" a1 "). Cambiar tamaño (i,1) = función de hoja de trabajo. Transponer (mDic.keys)
Adaptador final