DenSyo:
если иного решения не найдете, запустите на ночь этот скрипт. его можно ускорить взяв большее число строк на шаге.
Код:
если иного решения не найдете, запустите на ночь этот скрипт. его можно ускорить взяв большее число строк на шаге.
Код:
Sub makros1() Application.ScreenUpdating = False For j = 19 To 756769 Range("A" & j & ":AV" & j).Select Selection.AutoFill Destination:=Range("A" & j & ":AV" & (j + 1)), Type:=xlFillDefault Range("A" & j & ":AV" & j).Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Next j Application.ScreenUpdating = True End Sub |