Hola,
He fijado los problemas que usted encontró. El código siguiente debe ahora trabajar mucho mejor para usted:
splitVersion2 secundario ()
lastOrder dévil, inkooporder como secuencia
rowCount dévil como número entero
lastrow = [b65536]. Extremo (xlUp). Fila
rowCount = 2
Columnas (“A: S”). Selecto
ActiveWorkbook.Worksheets (“Sheet1”). Sort.SortFields.Clear
ActiveWorkbook.Worksheets (“Sheet1”). Llave de Sort.SortFields.Add: =Range (“C2: C34”) _
, SortOn: =xlSortOnValues, orden: El =xlAscending, DataOption: =xlSortNormal
Con ActiveWorkbook.Worksheets (“Sheet1”). Clase
gama de .SetRange (“A1: S34”)
. Jefe = xlYes
.MatchCase = falso
. Orientación = xlTopToBottom
.SortMethod = xlPinYin
. Aplicarse
ActiveSheet.Cells (1, 1).Select
Terminar con
lastOrder = 0
Para i = 2 al lastrow
inkooporder = hojas (“Sheet1”). Células (i, 3)
Si no inkooporder = lastOrder después
Worksheets.Add (después: =Worksheets (1)). Nombre = inkooporder
Hojas (“Sheet1”). Selecto
Cells.Select
Selection.Copy
Hojas (inkooporder). Selecto
Cells.Select
Goma de Selection.PasteSpecial: =xlPasteFormats, operación: =xlNone, _
SkipBlanks: El =False, transporta: =False
Gama (“A1”). Selecto
Para x = 1 a 19
Hojas (inkooporder). Células (1, x) = hojas (“Sheet1”). Células (1, x)
X siguiente
rowCount = 2
Terminar si
Para x = 1 a 19
Hojas (inkooporder). Células (rowCount, x) = hojas (“Sheet1”). Células (i, x)
X siguiente
rowCount = rowCount + 1
lastOrder = inkooporder
Después i
Hojas (“Sheet1”). Selecto
Gama (“A1”). Selecto
Submarino del extremo
