¿Cómo cambiar el nombre de la hoja de cálculo por lotes y modificar por lotes las celdas de la tabla?
Sub s()
En caso de error, reanudar siguiente
Dim i&, t$, sh como objeto
i = 2
Hacer mientras Celdas(i, 1) <> ""
t = Celdas(i, 1)
Establecer sh = Hojas de trabajo(t)
Si sh no es nada Luego
Establecer sh = Worksheets.Add(after:=Worksheets(Worksheets.
sh.Name = t
Finalizar si
sh.Cells(1, 1) = t
Establecer sh = Nada
i = i + 1
Bucle
End Sub
En caso de que no haya suficientes hojas de trabajo existentes, todas las hojas de trabajo no existentes se crean nuevamente