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

Вход

Регистрация

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

 

= Мир MS Excel/Транспонир-е значений из строк с листа 1 в столбик на лист 2 - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Транспонир-е значений из строк с листа 1 в столбик на лист 2
ni4esse Дата: Понедельник, 22.01.2024, 18:12 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Доброго дня, уважаемые форумчане. Нет ли у кого нибудь макроса создающего новый лист и транспонирующего значения из строк с листа 1 в столбик на лист 2. Если делать в рукопашную, очень долго. пример приложил. Заранее благодарен.
 
Ответить
СообщениеДоброго дня, уважаемые форумчане. Нет ли у кого нибудь макроса создающего новый лист и транспонирующего значения из строк с листа 1 в столбик на лист 2. Если делать в рукопашную, очень долго. пример приложил. Заранее благодарен.

Автор - ni4esse
Дата добавления - 22.01.2024 в 18:12
gling Дата: Понедельник, 22.01.2024, 20:50 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2527
Репутация: 679 ±
Замечаний: 0% ±

2010
пример приложил
И где он?


ЯД-41001506838083
 
Ответить
Сообщение
пример приложил
И где он?

Автор - gling
Дата добавления - 22.01.2024 в 20:50
ni4esse Дата: Вторник, 23.01.2024, 00:43 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Странно. не прикрепился(
К сообщению приложен файл: primer.xlsx (8.9 Kb)
 
Ответить
СообщениеСтранно. не прикрепился(

Автор - ni4esse
Дата добавления - 23.01.2024 в 00:43
Gustav Дата: Вторник, 23.01.2024, 01:40 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2763
Репутация: 1140 ±
Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1
макроса создающего новый лист и транспонирующего значения из строк с листа 1 в столбик на лист 2

Если на обоих листах всё начинается с ячеек A1, то вот такой несложный макрос можно попробовать:
[vba]
Код
Sub Macro1()
    Dim wksOld  As Worksheet
    Dim wksNew  As Worksheet
    Dim i       As Long
    
    Set wksOld = ActiveSheet
    Set wksNew = Worksheets.Add(, wksOld)
    For i = 1 To wksOld.UsedRange.Cells.Count
        wksNew.Cells(i, 1) = wksOld.UsedRange.Cells(i)
    Next i
End Sub
[/vba]В момент запуска активным должен быть лист-источник (лист 1).


МОИ: Ник, Tip box: 41001663842605
 
Ответить
Сообщение
макроса создающего новый лист и транспонирующего значения из строк с листа 1 в столбик на лист 2

Если на обоих листах всё начинается с ячеек A1, то вот такой несложный макрос можно попробовать:
[vba]
Код
Sub Macro1()
    Dim wksOld  As Worksheet
    Dim wksNew  As Worksheet
    Dim i       As Long
    
    Set wksOld = ActiveSheet
    Set wksNew = Worksheets.Add(, wksOld)
    For i = 1 To wksOld.UsedRange.Cells.Count
        wksNew.Cells(i, 1) = wksOld.UsedRange.Cells(i)
    Next i
End Sub
[/vba]В момент запуска активным должен быть лист-источник (лист 1).

Автор - Gustav
Дата добавления - 23.01.2024 в 01:40
ni4esse Дата: Вторник, 23.01.2024, 09:53 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

вот такой несложный макрос можно попробовать
Спасибо. отлично работает. остальное приспособлю.
 
Ответить
Сообщение
вот такой несложный макрос можно попробовать
Спасибо. отлично работает. остальное приспособлю.

Автор - ni4esse
Дата добавления - 23.01.2024 в 09:53
  • Страница 1 из 1
  • 1
Поиск:

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