Quantcast
Channel: Ru.Board
Viewing all articles
Browse latest Browse all 1252310

Excel VBA (часть 3) (3915) / все вопросы по Excel VBA сюда..

$
0
0
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

Viewing all articles
Browse latest Browse all 1252310

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>