Перенос данных

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос данных (Макросы/Sub)

Перенос данных

gge29

Дата: Воскресенье, 16.07.2017, 21:57 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 244

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

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

Здравствуйте!!!Помогите пожалуйста справится с задачей переноса из столбца В в столбец А но строкой ниже
Файл пример прилагается на 1листе(вставка) скидываются данные,на 2(итог)что должно получится

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

Ответить

gge29

Дата: Воскресенье, 16.07.2017, 22:04 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 244

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

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

А так приходиться добавлять строку между каждой и переносить данные из столбца В

Ответить

_Boroda_

Дата: Воскресенье, 16.07.2017, 22:21 | Сообщение № 3

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16672

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

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

2003; 2007; 2010; 2013 RUS

Не совсем понял - Вам на второй лист перенести нужно или на первом оставить?
Сделал 2 варианта
Это на второй лист
[vba]

Код

Sub tt()
    Dim sh1 As Worksheet, sh2 As Worksheet
    Set sh1 = ThisWorkbook.Sheets("Вставка")
    Set sh2 = ThisWorkbook.Sheets("Итог")
    With sh1
        r1_ = .Range("A" & Rows.Count).End(3).Row
        ar1 = Range("A1").Resize(r1_, 2)
        ar2 = Range("A1").Resize(r1_ * 2)
        For i = 1 To r1_
            For j = 1 To 2
                ar2((2 * i - 1) + j - 1, 1) = ar1(i, j)
            Next j
        Next i
    End With
    With sh2
        .Columns(1).ClearContents
        .Range("A1").Resize(r1_ * 2) = ar2
        .Select
    End With
End Sub

[/vba]

К сообщению приложен файл: perenos_1.xlsm (19.9 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995