Hi,
Я фиксировал проблемы, котор вы нашли. Следующий Кодий должно теперь работать очень более лучше для вас:
Sub splitVersion2 ()
Тусклое lastOrder, inkooporder как шнур
Тусклое rowCount как интежер
lastrow = [b65536]. Конец (xlUp). Рядок
rowCount = 2
Колонки («a: S»). Отборно
ActiveWorkbook.Worksheets («Sheet1»). Sort.SortFields.Clear
ActiveWorkbook.Worksheets («Sheet1»). Ключ Sort.SortFields.Add: =Range («C2: C34») _
, SortOn: =xlSortOnValues, заказ: =xlAscending, DataOption: =xlSortNormal
С ActiveWorkbook.Worksheets («Sheet1»). Вид
ряд .SetRange («A1: S34»)
. Коллектор = xlYes
.MatchCase = ложно
. Ориентация = xlTopToBottom
.SortMethod = xlPinYin
. Применитесь
ActiveSheet.Cells (1, 1).Select
Закончитесь с
lastOrder = 0
Для I = 2 к lastrow
inkooporder = листы («Sheet1»). Клетки (I, 3)
Если не inkooporder = lastOrder после этого
Worksheets.Add (поже: =Worksheets (1)). Имя = inkooporder
Листы («Sheet1»). Отборно
Cells.Select
Selection.Copy
Листы (inkooporder). Отборно
Cells.Select
Затир Selection.PasteSpecial: =xlPasteFormats, деятельность: =xlNone, _
SkipBlanks: =False, транспонирует: =False
Ряд («A1»). Отборно
Для x = от 1 до 19
Листы (inkooporder). Клетки (1, x) = листы («Sheet1»). Клетки (1, x)
Следующий x
rowCount = 2
Закончитесь если
Для x = от 1 до 19
Листы (inkooporder). Клетки (rowCount, x) = покрывают («Sheet1»). Клетки (I, x)
Следующий x
rowCount = rowCount + 1
lastOrder = inkooporder
Затем iий
Листы («Sheet1»). Отборно
Ряд («A1»). Отборно
Подводная лодка конца
