Здравствуйте! Подскажите пожалуйста! как копировать таблицу не меняя ее размеры? при копировании меняется высота строки таблицы. стандартным набором копирования не помогает. в некоторых ячейках применена функция "объединить и поместить в центре". Возможно в этом проблема? подправить высоту строк не проблема, но когда таких таблиц 30 - это проблема.
Здравствуйте! Подскажите пожалуйста! как копировать таблицу не меняя ее размеры? при копировании меняется высота строки таблицы. стандартным набором копирования не помогает. в некоторых ячейках применена функция "объединить и поместить в центре". Возможно в этом проблема? подправить высоту строк не проблема, но когда таких таблиц 30 - это проблема.bumnik
bumnik, здравствуйте! Попробуйте выделить таблицу с первой по тридцать первую строку и ПКМ за правый нижний угол протяните вниз. Отпустите ПКМ и выберите "Заполнить"
bumnik, здравствуйте! Попробуйте выделить таблицу с первой по тридцать первую строку и ПКМ за правый нижний угол протяните вниз. Отпустите ПКМ и выберите "Заполнить"VEKTORVSFREEMAN
"Опыт - это то, что получаешь, не получив того, что хотел"
Sub CopyHeightRow() Dim i As Integer Dim j As Long Application.ScreenUpdating = False 'отключение обновление экрана For j = 1 To 30 ' цикл по количеству блоков For i = 1 To 31 ' цикл по строкам в блоке Cells(i + 31 * j, 1).RowHeight = Cells(i, 1).RowHeight Next Next Application.ScreenUpdating = True End Sub
[/vba]
На листе с нарядами запустите макрос [vba]
Код
Sub CopyHeightRow() Dim i As Integer Dim j As Long Application.ScreenUpdating = False 'отключение обновление экрана For j = 1 To 30 ' цикл по количеству блоков For i = 1 To 31 ' цикл по строкам в блоке Cells(i + 31 * j, 1).RowHeight = Cells(i, 1).RowHeight Next Next Application.ScreenUpdating = True End Sub