Steven está probando un software y necesita introducir en el programa un montón de nombres «falsos». Le gustaría que estos nombres tuvieran patrones como Nameaaa, Nameaab, Nameaac, etc. a través de Namezzz. Esto requeriría crear 17.576 nombres (26 x 26 x 26). Se pregunta si existe una manera fácil de generar todos estos nombres en Excel.

Este tipo de tarea repetitiva solo pide a gritos una macro. (Son excelentes para realizar tareas aburridas, aburridas y repetitivas que no desea hacer manualmente). Aquí hay una macro simple que puede hacer el trabajo pesado requerido:

Sub CreateNames()

Dim i As Integer     Dim x As Integer     Dim y As Integer     Dim z As Integer

i = 1     For x = 97 To 122         For y = 97 To 122           For z = 97 To 122               Cells(i, 1) = "Name" & Chr(x) _                 & Chr(y) & Chr(z)

i = i + 1             Next         Next     Next End Sub

La macro usa tres variables de contador (x, y, yz) para servir como «variables de contador» que controlan qué letra del alfabeto se agrega al «nombre» metido en una celda. Observe que los bucles For …​ Next van de 97 a 122, que son los códigos ASCII para las minúsculas de la aa la z.

Si no desea utilizar una macro por alguna razón, escriba la siguiente fórmula en la celda A1 de una hoja de trabajo en blanco:

="Name" & CHAR((ROW()-1)/676+97)&CHAR(MOD( (ROW()-1)/26,26)+97)&CHAR(MOD(ROW()-1,26)+97)

Esta es una fórmula única y da como resultado que se muestre «Nameaaa».

Copie la fórmula hasta la fila 17,576 y tendrá sus nombres falsos.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (12128) se aplica a Microsoft Excel 97, 2000, 2002 y 2003.

Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

link: / excelribbon-Generating_Unique_Sequential_Names [Generación de nombres secuenciales únicos].