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

Вход

Регистрация

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

 

= Мир MS Excel/Транспонировать данные на другой лист. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Транспонировать данные на другой лист. (Макросы/Sub)
Транспонировать данные на другой лист.
Mark1976 Дата: Воскресенье, 09.12.2018, 10:56 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 761
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Здравствуйте. Есть таблица с вертикальным расположением данных. Мне необходимо по кнопке перенести данные на другой лист, расположив их горизонтально (транспонировать).
Условия:
1. после переноса очистить данные на листе 1
2. последующие переносы делать на другой строке листа 2 (данные будут накапливаться)
3. переносятся данные в желтой заливке, расположенные на листе 1.
Заранее спасибо за решение.
К сообщению приложен файл: 7064803.xlsx (12.3 Kb)


Сообщение отредактировал Mark1976 - Воскресенье, 09.12.2018, 11:05
 
Ответить
СообщениеЗдравствуйте. Есть таблица с вертикальным расположением данных. Мне необходимо по кнопке перенести данные на другой лист, расположив их горизонтально (транспонировать).
Условия:
1. после переноса очистить данные на листе 1
2. последующие переносы делать на другой строке листа 2 (данные будут накапливаться)
3. переносятся данные в желтой заливке, расположенные на листе 1.
Заранее спасибо за решение.
Автор - Mark1976
Дата добавления - 09.12.2018 в 10:56
boa Дата: Воскресенье, 09.12.2018, 12:02 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 559
Репутация: 167 ±
Замечаний: 0% ±

365
Mark1976, Макрорекодером не пробовалт воспользоваться?

 
Ответить
СообщениеMark1976, Макрорекодером не пробовалт воспользоваться?
Автор - boa
Дата добавления - 09.12.2018 в 12:02
Pelena Дата: Воскресенье, 09.12.2018, 12:11 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19405
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
[vba]
Код
Public Sub Перенести()
    With Sheets("Лист2")
        lrow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        .Cells(lrow, 1) = Cells(1, 2)
        .Cells(lrow, 2) = Cells(10, 2)
        .Cells(lrow, 3) = Cells(11, 2)
        .Cells(lrow, 4) = Cells(12, 2)
        .Cells(lrow, 5) = Cells(13, 2)
        .Cells(lrow, 6) = Cells(22, 2)
    End With
    Columns(2).ClearContents
End Sub
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение[vba]
Код
Public Sub Перенести()
    With Sheets("Лист2")
        lrow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        .Cells(lrow, 1) = Cells(1, 2)
        .Cells(lrow, 2) = Cells(10, 2)
        .Cells(lrow, 3) = Cells(11, 2)
        .Cells(lrow, 4) = Cells(12, 2)
        .Cells(lrow, 5) = Cells(13, 2)
        .Cells(lrow, 6) = Cells(22, 2)
    End With
    Columns(2).ClearContents
End Sub
[/vba]
Автор - Pelena
Дата добавления - 09.12.2018 в 12:11
Mark1976 Дата: Воскресенье, 09.12.2018, 17:45 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 761
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
boa, нет не пробовал.
 
Ответить
Сообщениеboa, нет не пробовал.
Автор - Mark1976
Дата добавления - 09.12.2018 в 17:45
Mark1976 Дата: Воскресенье, 09.12.2018, 17:46 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 761
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Pelena, спасибо. Это то, что надо.
 
Ответить
СообщениеPelena, спасибо. Это то, что надо.
Автор - Mark1976
Дата добавления - 09.12.2018 в 17:46
Mark1976 Дата: Понедельник, 10.12.2018, 08:58 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 761
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
А можно поправить макрос? Надо стереть все данные на листе 1.
 
Ответить
СообщениеА можно поправить макрос? Надо стереть все данные на листе 1.
Автор - Mark1976
Дата добавления - 10.12.2018 в 08:58
китин Дата: Понедельник, 10.12.2018, 09:07 | Сообщение № 7
Группа: Модераторы
Ранг: Экселист
Сообщений: 7029
Репутация: 1078 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Дык он разве не стирает?
[vba]
Код
Columns(2).ClearContents
[/vba]
файл не смотрел

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеДык он разве не стирает?
[vba]
Код
Columns(2).ClearContents
[/vba]
файл не смотрел
Автор - китин
Дата добавления - 10.12.2018 в 09:07
Mark1976 Дата: Понедельник, 10.12.2018, 09:12 | Сообщение № 8
Группа: Проверенные
Ранг: Ветеран
Сообщений: 761
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
китин, стирает ланные в колонке В. Мне сейчас надо весь лист очистить.
 
Ответить
Сообщениекитин, стирает ланные в колонке В. Мне сейчас надо весь лист очистить.
Автор - Mark1976
Дата добавления - 10.12.2018 в 09:12
китин Дата: Понедельник, 10.12.2018, 09:17 | Сообщение № 9
Группа: Модераторы
Ранг: Экселист
Сообщений: 7029
Репутация: 1078 ±
Замечаний: 0% ±

Excel 2007;2010;2016
ну дык замените
[vba]
Код
Columns(2).ClearContents
[/vba] на
[vba]
Код
Columns("A:B").ClearContents
[/vba]

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениену дык замените
[vba]
Код
Columns(2).ClearContents
[/vba] на
[vba]
Код
Columns("A:B").ClearContents
[/vba]
Автор - китин
Дата добавления - 10.12.2018 в 09:17
Pelena Дата: Понедельник, 10.12.2018, 09:17 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 19405
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
или
[vba]
Код
Sheets("Лист1").UsedRange.ClearContents
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщениеили
[vba]
Код
Sheets("Лист1").UsedRange.ClearContents
[/vba]
Автор - Pelena
Дата добавления - 10.12.2018 в 09:17
Mark1976 Дата: Понедельник, 10.12.2018, 09:25 | Сообщение № 11
Группа: Проверенные
Ранг: Ветеран
Сообщений: 761
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Спасибо. Заменил бы сам, но не силен в коде.
 
Ответить
СообщениеСпасибо. Заменил бы сам, но не силен в коде.
Автор - Mark1976
Дата добавления - 10.12.2018 в 09:25
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Транспонировать данные на другой лист. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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