Ciao,
Ho riparato i problemi che avete trovato. Il seguente codice dovrebbe ora funzionare molto più meglio per voi:
splitVersion2 secondario ()
lastOrder fioco, inkooporder come stringa
rowCount fioco come numero intero
lastrow = [b65536]. Estremità (xlUp). Fila
rowCount = 2
Colonne (“A: S„). Prescelto
ActiveWorkbook.Worksheets (“Sheet1„). Sort.SortFields.Clear
ActiveWorkbook.Worksheets (“Sheet1„). Chiave di Sort.SortFields.Add: =Range (“C2: C34„) _
, SortOn: =xlSortOnValues, ordine: =xlAscending, DataOption: =xlSortNormal
Con ActiveWorkbook.Worksheets (“Sheet1„). Specie
gamma di .SetRange (“A1: S34„)
. Intestazione = xlYes
.MatchCase = falso
. Orientamento = xlTopToBottom
.SortMethod = xlPinYin
. Applicar
ActiveSheet.Cells (1, 1).Select
Concluder con
lastOrder = 0
Per i = 2 a lastrow
inkooporder = strati (“Sheet1„). Cellule (i, 3)
Se non inkooporder = lastOrder allora
Worksheets.Add (dopo: =Worksheets (1)). Nome = inkooporder
Strati (“Sheet1„). Prescelto
Cells.Select
Selection.Copy
Strati (inkooporder). Prescelto
Cells.Select
Colla di Selection.PasteSpecial: =xlPasteFormats, funzionamento: =xlNone, _
SkipBlanks: Il =False, traspone: =False
Gamma (“A1„). Prescelto
Per x = 1 - 19
Strati (inkooporder). Cellule (1, x) = strati (“Sheet1„). Cellule (1, x)
X seguente
rowCount = 2
Concluder se
Per x = 1 - 19
Strati (inkooporder). Cellule (rowCount, x) = strati (“Sheet1„). Cellule (i, x)
X seguente
rowCount = rowCount + 1
lastOrder = inkooporder
Dopo i
Strati (“Sheet1„). Prescelto
Gamma (“A1„). Prescelto
Sommergibile dell'estremità
