Добрый день, ни как не могу справиться с макросом.
В столбце (G код для управления чпу) есть постоянно повторяющиеся ячейки
Мне их надо заменить на
Измучился.. Вроде получилось сначало, но проблема дальше 16387 строки не вставляет ошибка 1004 выдает. А сейчас и вовсе не туда строчки вставляет.. Подскажите как подправить.
Строк много-много порядка 30000 шт
Не могу прикрепить файл он весит 189 кб (как не уменьшал..)
В столбце (G код для управления чпу) есть постоянно повторяющиеся ячейки
Код |
---|
G1Z-1 G1Z1 |
Мне их надо заменить на
Код |
---|
M106 P1 S200 G04 P30 M107 G04 P30 |
Измучился.. Вроде получилось сначало, но проблема дальше 16387 строки не вставляет ошибка 1004 выдает. А сейчас и вовсе не туда строчки вставляет.. Подскажите как подправить.
Код |
---|
Sub Макрос1() ' ' Макрос1 Макрос L = Cells(1, 1).Value n = 5 m = 5 For W = 1 To L 'количество ячеек вправо Cells(m, n).Select Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove Cells(m, n).Select Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove n = n + 4 m = m + 4 Next W End Sub |
Строк много-много порядка 30000 шт
Не могу прикрепить файл он весит 189 кб (как не уменьшал..)