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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Транспонир-е значений из строк с листа 1 в столбик на лист 2 (Макросы/Sub)

ni4esse

Дата: Понедельник, 22.01.2024, 18:12 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

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

Ответить

gling

Дата: Понедельник, 22.01.2024, 20:50 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2532

Репутация: 680 ±

Замечаний: 0% ±

2010

Цитата ni4esse, 22.01.2024 в 18:12, в сообщении № 1 (

)

пример приложил

И где он?

ЯД-41001506838083

Ответить

ni4esse

Дата: Вторник, 23.01.2024, 00:43 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 15

Репутация: 0 ±

Замечаний: 0% ±

Странно. не прикрепился(

К сообщению приложен файл: primer.xlsx (8.9 Kb)

Ответить

Gustav

Дата: Вторник, 23.01.2024, 01:40 | Сообщение № 4

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2766

Репутация: 1140 ±

Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1

Цитата ni4esse, 22.01.2024 в 18:12, в сообщении № 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).