surgutfred, а можешь обоих в формате MS Excel 2003 сохранить? Посмотрю с удоволствием ![](http://i.ru-board.com/s/smile.gif)
![](http://i.ru-board.com/s/smile.gif)
а можешь обоих в формате MS Excel 2003 сохранить
что-то не нашёл, где там в Вашем коде их вставляете или планируете вставлять.
Dim Arr() As String, I As Long, J as Long, K As Byte, WS as Worksheet, Found as boolean, LastRow as Long, LastCol as Byte
LastCol = Cells.SpecialCells(xlLastCell).Column
For I = 1 To Cells.SpecialCells(xlLastCell).Row
Arr = Split(Cells(I, 2), ", ")
For J = LBound(Arr) To Ubound(Arr)
Found = False
For Each WS In ThisWorkbook.Worksheets
If WS.Name = Arr(J) Then
Found = True
Exit For
End If
Next WS
If Not Found Then
Set WS = Worksheets.Add
WS.Name = Arr(J)
End If
LastRow = WS.Cells.SpecialCells(xlLastCell).Row + 1
For K = 1 To LastCol
WS.Cells(LastRow, K) = Cells(I, K)
Next K
Next J
Next I
Цитата:
Dim Arr() As String, I As Long, J as Long, K As Byte, WS as Worksheet, Found as boolean, LastRow as Long, LastCol as Byte
Не понял предназначения всех переменных. Точнее - понял не всех.
LastCol = Cells.SpecialCells(xlLastCell).Column
это в переменную пишем номер последней колонки. Он, кстати, по сути своей номер или буква?
Цитата:
For I = 1 To Cells.SpecialCells(xlLastCell).Row
Arr = Split(Cells(I, 2), ", ")
Тэкс... счётчик на I понятен. А во второй строчке что происходит?
Цитата:
For J = LBound(Arr) To Ubound(Arr)
Found = False
For Each WS In ThisWorkbook.Worksheets
If WS.Name = Arr(J) Then
Found = True
Совсем не понял.
Что происходит?
Цитата:
Exit For
End If
Next WS
If Not Found Then
Set WS = Worksheets.Add
WS.Name = Arr(J)
End If
LastRow = WS.Cells.SpecialCells(xlLastCell).Row + 1
For K = 1 To LastCol
WS.Cells(LastRow, K) = Cells(I, K)
Next K
Next J
Next I
Опять - не понимаю как оно работает.
если просто пишешь диапазон то все нормально в лист 1 и вставляет, а если приписать имя листа 2 то выдает ошибку
Как на VBA сделать что-то типа прогрессбара для пользователя при длительном процессе.
Страницы: 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127
Предыдущая тема: VS 2010