Страницы: 1
RSS
Копирование столбцов первого листа в первые пустые столбцы второго листа.
 
Добрый день, уважаемые.
Хотел бы попросить помощи в решении монотонной задачки.
Есть 2 листа:
1. "Анализ склада" - сюда подтягиваются значения анализа работы дилеров.
2. "Динамика по складу" - сюда нужно скопировать 2 столбца В и С, которые заполнились в первом листе, но с сохранением ранее внесенной информации.

Нужен макрос, который будет переносить информацию с первого листа в ближайшие пустые столбцы второго листа:
Скрытый текст

Надеюсь доступно объяснил, если нужны уточнения - пишите.
Исходник во вложении.
Нет ничего сложнее поиска простого решения.
 
Код
Sub Макрос_()
    Dim col&
    Worksheets("Динамика по складу").Select
    col = Cells(2, Columns.Count).End(xlToLeft).Column
    Worksheets("Анализ склада").Select
    Columns("B:C").Copy
    Worksheets("Динамика по складу").Select
    Columns(col + 1).Select
    ActiveSheet.Paste
With Selection
    .PasteSpecial Paste:=xlPasteValues
    .Interior.Pattern = xlNone
End With
End Sub
 
Чуток укоротим, а то слишком много Select'ов ))
Код
Sub Macro1()
Dim FreeColumn  As Long
    With Sheets("Динамика по складу")
        FreeColumn = .Cells(2, Columns.Count).End(xlToLeft).Column + 1
        Range("B2:C21").Copy .Cells(2, FreeColumn)
        .Cells(1, FreeColumn + 1).Value = Cells(1, 3).Value
    End With
End Sub
Выполнить при активном первом листе.
 
_Igor_61, спасибо, работает.
Юрий М, спасибо, но в Вашем варианте переносит не значения (возможно это поправить - минутное дело, но я не шарю, увы), а копируется с формулами, получается искажение - делит на сумму первого столбца (хотя я сам затупил и не написал, что нужно копировать значения):
Скрытый текст
Нет ничего сложнее поиска простого решения.
Страницы: 1
Наверх