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

Вход

Регистрация

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

 

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

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

Excel 2007
Здравствуйте. Есть таблица с вертикальным расположением данных. Мне необходимо по кнопке перенести данные на другой лист, расположив их горизонтально (транспонировать).
Условия:
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
Группа: Проверенные
Ранг: Обитатель
Сообщений: 382
Репутация: 103 ±
Замечаний: 0% ±

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


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

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

Excel 2010, 2016 & 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]


"Черт возьми, Холмс! Но как??!!"
ЯД 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
Группа: Проверенные
Ранг: Ветеран
Сообщений: 560
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
boa, нет не пробовал.
 
Ответить
Сообщениеboa, нет не пробовал.

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

Excel 2007
Pelena, спасибо. Это то, что надо.
 
Ответить
СообщениеPelena, спасибо. Это то, что надо.

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

Excel 2007
А можно поправить макрос? Надо стереть все данные на листе 1.
 
Ответить
СообщениеА можно поправить макрос? Надо стереть все данные на листе 1.

Автор - Mark1976
Дата добавления - 10.12.2018 в 08:58
китин Дата: Понедельник, 10.12.2018, 09:07 | Сообщение № 7
Группа: Модераторы
Ранг: Экселист
Сообщений: 5596
Репутация: 891 ±
Замечаний: 0% ±

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


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
СообщениеДык он разве не стирает?
[vba]
Код
Columns(2).ClearContents
[/vba]
файл не смотрел

Автор - китин
Дата добавления - 10.12.2018 в 09:07
Mark1976 Дата: Понедельник, 10.12.2018, 09:12 | Сообщение № 8
Группа: Проверенные
Ранг: Ветеран
Сообщений: 560
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
китин, стирает ланные в колонке В. Мне сейчас надо весь лист очистить.
 
Ответить
Сообщениекитин, стирает ланные в колонке В. Мне сейчас надо весь лист очистить.

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

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


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538
 
Ответить
Сообщениену дык замените
[vba]
Код
Columns(2).ClearContents
[/vba] на
[vba]
Код
Columns("A:B").ClearContents
[/vba]

Автор - китин
Дата добавления - 10.12.2018 в 09:17
Pelena Дата: Понедельник, 10.12.2018, 09:17 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 14087
Репутация: 3080 ±
Замечаний: ±

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


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщениеили
[vba]
Код
Sheets("Лист1").UsedRange.ClearContents
[/vba]

Автор - Pelena
Дата добавления - 10.12.2018 в 09:17
Mark1976 Дата: Понедельник, 10.12.2018, 09:25 | Сообщение № 11
Группа: Проверенные
Ранг: Ветеран
Сообщений: 560
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо. Заменил бы сам, но не силен в коде.
 
Ответить
СообщениеСпасибо. Заменил бы сам, но не силен в коде.

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

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