Ускорить цикл

[Wasup!]

Открываю в Excel *.dif (data interchange format) файл, с некоторыми данными. Это текстовый файл, с тегами, размещающими данные по строкам и столбцам. Excel открывает такие файлы, как обычную книгу Excel.

Дальше макросом осуществляется форматирование этой книги, рисование линий и все сохраняется, как xls файл.
Но существует проблема, в разных версиях офиса, dif файл открывается немного по-разному. В 97 числа из dif файла будут открыты в Excel, как числа, а в 2000, как текст. Если при этом в 2000 Excel`е два раза кликнуть по ячейке, она обновится и будет преобразована к числу.

Чтобы сразу преобразовать все числа dif файла в числа xls файла, в любой версии офиса, добавил в макрос цикл.

Код: Выделить всё

for i=1 to 100
  for j=1 to 20 step 2
   cells(i,j).value=ccur(cells(i,j).value)
  next
next

Поскольку ячеек достаточно много цикл идет долго. Можно ли это как-то ускорить. Предположим, обрабатывать не каждую ячейку, а столбец сразу?

Worksheets(1).Calculate, к сожалению, не помогает.

[GSerg]

application.calculation=xlCalculationManual
application.screenupdating=false
for...
application.screenupdating=true
application.calculation=xlCalculationAutomatic


Или так может поможет: columns(1).numberformat="#0.0"

Или может так: columns(1).copy:columns(1).pastespecial xlPasteValues

[uhm]

Как минимум, есть стандартный рецепт: поставить перед циклом

Код: Выделить всё

Application.Calculation=xlCalculationManual
Application.ScreenUpdating=False


(после цикла xlCalculationAutomatic и True соответственно). Обрабатывать весь столбец сразу таким методом, по-моему, нельзя. Есть метод создать столбец рядом, в него забить формулу "=предыдущий столбец+0" (с Ctrl-Shift-Enter'ом), потом этот столбец скопировать и вставить на место предыдущего как значения. Ессесно, это все можно повторить макросом, но достаточно геморройно. Может, и еще какой способ есть.

[uhm]

Numberformat и PasteSpecial, вроде, не помогают...

[alibek]

Ввести в любую ячейку _число_ 0.
Скопировать ячейку в буфер.
Выделить нужный столбец.
Сделать .PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks:=False, Transpose:=False

[uhm]

О, опять забыл про этот способ!

[alibek]

Либо тоже самое сделать вручную (скопировать 0, выбрать столбец, специальная вставка, вставить значения - сложить).

[Wasup!]

Способ с копированием и специальной вставкой вроде очень подходит, но у меня в столбце могут быть пустые ячейки.
При вставке они будут заполнены нулями.
Можно этого как-то избежать?
Например выделить в столбце только непустые ячейки и к ним применить специальную вставку?

[alibek]

SkipBlanks = True

[Wasup!]

Странно, но не работает

Код: Выделить всё

Range("A1").Copy

Range("B1:B6").PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks:=True, Transpose:=False


В ячейке А1 у меня 0, в B1:B6 1,2,3, ,4,5
В результате получаю 1,2,3,0,4,5

[uhm]

Э-э, а что и куда ты копируешь? Зачем, другими словами, A1 копировать в B1:B6?

[Wasup!]

Ну как советовали..

alibek

Ввести в любую ячейку _число_ 0.
Скопировать ячейку в буфер.
Выделить нужный столбец.
Сделать .PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks:=False, Transpose:=False

[uhm]

А, сорри, стормозил, все правильно.
Skipblanks=True делает, увы, не то, что тебе нужно - она оставляет значение в той области, куда ты вставляешь данные, если в той области, откуда ты вставляешь, была пустая ячейка.

Тем не менее, по результатам всей дискуссии придумался следующий трюк: сначала выставить всем ячейкам, где стоят цифры в текстовом формате, числовой формат (что ничего не изменит), потом выделить пустую ячейку (возможно, нужно, чтобы у нее был числовой формат) и выполнить

Код: Выделить всё

.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks:=False, Transpose:=False


У меня сработало - цифры стали цифрами, а пустые ячейки остались пустыми.

[Wasup!]

В таком варианте работает, спасибо!