Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/как копировать таблицу не меняя ее размеры? - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
как копировать таблицу не меняя ее размеры?
bumnik Дата: Суббота, 28.03.2015, 21:24 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 185
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007,2010
Здравствуйте! Подскажите пожалуйста! как копировать таблицу не меняя ее размеры? при копировании меняется высота строки таблицы. стандартным набором копирования не помогает. в некоторых ячейках применена функция "объединить и поместить в центре". Возможно в этом проблема? подправить высоту строк не проблема, но когда таких таблиц 30 - это проблема.
К сообщению приложен файл: 5.4.xlsx (71.4 Kb)
 
Ответить
СообщениеЗдравствуйте! Подскажите пожалуйста! как копировать таблицу не меняя ее размеры? при копировании меняется высота строки таблицы. стандартным набором копирования не помогает. в некоторых ячейках применена функция "объединить и поместить в центре". Возможно в этом проблема? подправить высоту строк не проблема, но когда таких таблиц 30 - это проблема.

Автор - bumnik
Дата добавления - 28.03.2015 в 21:24
krosav4ig Дата: Суббота, 28.03.2015, 22:04 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
как копировать таблицу не меняя ее размеры?

какую? откуда? куда?


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
как копировать таблицу не меняя ее размеры?

какую? откуда? куда?

Автор - krosav4ig
Дата добавления - 28.03.2015 в 22:04
bumnik Дата: Суббота, 28.03.2015, 22:12 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 185
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007,2010
krosav4ig, A1*Y31 в A63*Y93 и далее 30 штук.
 
Ответить
Сообщениеkrosav4ig, A1*Y31 в A63*Y93 и далее 30 штук.

Автор - bumnik
Дата добавления - 28.03.2015 в 22:12
VEKTORVSFREEMAN Дата: Суббота, 28.03.2015, 22:34 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 772
Репутация: 130 ±
Замечаний: 0% ±

MS Office Excel 2010
bumnik, здравствуйте!
Попробуйте выделить таблицу с первой по тридцать первую строку и ПКМ за правый нижний угол протяните вниз. Отпустите ПКМ и выберите "Заполнить"


"Опыт - это то, что получаешь, не получив того, что хотел"
 
Ответить
Сообщениеbumnik, здравствуйте!
Попробуйте выделить таблицу с первой по тридцать первую строку и ПКМ за правый нижний угол протяните вниз. Отпустите ПКМ и выберите "Заполнить"

Автор - VEKTORVSFREEMAN
Дата добавления - 28.03.2015 в 22:34
bumnik Дата: Суббота, 28.03.2015, 22:56 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 185
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007,2010
VEKTORVSFREEMAN, что такое ПКМ. протянул, выбрал заполнить - не помогает. копируется, но искажается.
 
Ответить
СообщениеVEKTORVSFREEMAN, что такое ПКМ. протянул, выбрал заполнить - не помогает. копируется, но искажается.

Автор - bumnik
Дата добавления - 28.03.2015 в 22:56
Kuzmich Дата: Суббота, 28.03.2015, 23:33 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 715
Репутация: 157 ±
Замечаний: 0% ±

Excel 2003
На листе с нарядами запустите макрос
[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
[/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
[/vba]

Автор - Kuzmich
Дата добавления - 28.03.2015 в 23:33
bumnik Дата: Суббота, 28.03.2015, 23:47 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 185
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007,2010
Kuzmich, спасибо!!! :)
 
Ответить
СообщениеKuzmich, спасибо!!! :)

Автор - bumnik
Дата добавления - 28.03.2015 в 23:47
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!