Копирование столбца в другой документ

@Je11 · Регистрация: 06.03.2013

Студворк — интернет-сервис помощи студентам

Задача такая. Есть документ, в нём столбец (например количество). Этот документ меняется каждый день, значения в столбце тоже, имя документа постоянно. Позиция столбца также всегда постоянна. Этот столбец нужно копировать в другой документ, со смещением позиции на 1 столбец вправо. По итогу получить большой документ (за месяц), где будут столбцы слева направо за каждый день из исходного документа.
Поможите?

@Казанский · 03.03.2014, 13:12

Скопирует столбец, в котором находится курсор. Предполагается, что сводная книга закрыта.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub Je11()
Application.ScreenUpdating = False
With GetObject("c:\temp\AllData.xls") 'путь к книге
  With .Sheets("Лист1")               'имя листа
    ActiveCell.EntireColumn.Copy .Cells(1, .Columns.Count).End(xlToLeft).Offset(, 1)
  End With
  .Windows(1).Visible = True
  .Close savechanges:=True
End With
Application.ScreenUpdating = True
End Sub

@mc-black · 03.03.2014, 13:14

Уверен найдутся желающие помочь (точнее написать Вам код на VBA), если прикрепить 1-2 примера исходного документа и примерный образец конечного документа (за месяц). Исходные данные, вид желаемого результата наряду с текстом технического задания имеют решающее значение для написания работающей программы.

@Alex77755 · 03.03.2014, 13:23

Помогут функции определения последней занятой строки и последнего занятого столбца.

Visual Basic
1
2
LR = Cells(Rows.Count, 1).End(xlUp).Row
LC = Cells(1, Columns.Count).End(xlToLeft).Column

@Je11 · 03.03.2014, 13:53 **[ТС]**

Первый документ со столбцом, в котором каждый день меняются числовые значения stat_день
Из него нужно копировать столбец в документ stat_меc, со смещением вправо, чтоб по итогу месяца получить 30 столбцов.

@Je11 · 03.03.2014, 14:01 **[ТС]**

Вот:

@Je11 · 04.03.2014, 11:50 **[ТС]**

Помогите разобраться пож.

@Alex77755 · 04.03.2014, 12:15

Ну а что не полулучается-то?
Дали рабочий код. Подпили под себя (поменяй пути-имена)
Вот так без привязки к выделенному столбцу.
Макрос в листе книги дня.
Книга месяца рядом

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub Je11()
Application.ScreenUpdating = False
With GetObject(ActiveWorkbook.Path & "\stat_месяц.xlsx") 'путь к книге
  With .Sheets("Лист1")               'имя листа
    Range("E2:E" & Cells(Rows.Count, 5).End(xlUp).Row).Copy .Cells(1, .Columns.Count).End(xlToLeft).Offset(, 1)
  End With
  .Windows(1).Visible = True
  .Close savechanges:=True
End With
Application.ScreenUpdating = True
MsgBox "OK", 64, ""
End Sub

@Je11 · 05.03.2014, 11:30 **[ТС]**

C этим куском разобрался, мне нужно получить немного другое на выходе. А именно: макрос отдельным файлом, не привязанным к этим документам. Чтоб при его запуске он обращался к документу stat_день, брал из него колонку и записывал в документ stat_месяц. При каждом запуске макроса это повторялось и добавлялись колонки в документ stat_месяц с сохранением предыдущих.

@Alex77755 · 05.03.2014, 21:48

Ну рас разобрался - пару строчек добавить-то осталось.
Открой файл "Макрос" и кликни кнопку.
Не забудь распаковать

@Je11 · 06.03.2014, 14:55 **[ТС]**

Спасибо за помощь.
Добавил путь к файлам, проверил сто раз, но вываливает в дебаг из-за них.

@Je11 · 11.03.2014, 11:28 **[ТС]**

Вот, ругается, файлы есть, пути проверил:

@mc-black · 11.03.2014, 12:33

В засвеченной строке удалите часть: "ActiveWorkbook.Path &"

@Je11 · 11.03.2014, 13:26 **[ТС]**

Удалил, всё так же. Что-то не так, может с синтаксисом не порядок?

@mc-black · 11.03.2014, 15:17

На две строки ниже подсвеченного кода есть такая же ошибка. Если есть ошибка с выбросом в Debug, напиши также текст сообщения об ошибке (или заскринь).

@Je11 · 11.03.2014, 15:31 **[ТС]**

Ошибка Run-Time Error 13

@Je11 · 11.03.2014, 16:11 **[ТС]**

Удалил в двух местах "ActiveWorkbook.Path &", изменил на всякий случай названия на английские, всё равно:

@mc-black · 11.03.2014, 16:59

Если обе книги при запуске гарантированно открыты, попробуйте сделать так (путь к файлам можно не указывать):

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
 
Private Sub CommandButton1_Click()
    Dim WB As Workbook
    Set WB = Workbooks("day.xls") 'имя книги дня
    WB.Application.Visible = True
    With Workbooks("month.xls") 'имя книги месяца
        With .Sheets("Лист1")  'имя листа
            WB.Worksheets(1).Range("E2:E" & WB.Worksheets(1).Cells(WB.Worksheets(1).Rows.Count, 5).End(xlUp).Row).Copy .Cells(1, .Columns.Count).End(xlToLeft).Offset(, 1)
        End With
        .Windows(1).Visible = True
        .Close savechanges:=True
    End With
    WB.Close savechanges:=True
    MsgBox "OK", 64, ""
End Sub

@Je11 · 11.03.2014, 17:48 **[ТС]**

То же самое происходит. Обе книги открываю, макрос запускаю кнопкой, результат - дебаггер, подсвечивает строку Set WB = Workbooks("day.xls") 'имя книги дня

@Alex77755 · 11.03.2014, 18:16

Добавил путь к файлам, проверил сто раз

Проверь сто первый раз!
Нади 22 отличия в записи

Visual Basic
1
Set WB = GetObject(ActiveWorkbook.Path & "\stat_день.xls") 'путь к книге дня

Со своей, что на скрине!
Неужели не видишь разницу?

Новые блоги и статьи Все статьи Все блоги /
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .

Копирование столбца в другой документ

Решение

Решение

@Je11 1 / 1 / 0 Регистрация: 06.03.2013 Сообщений: 84

	Копирование столбца в другой документ 03.03.2014, 12:53. Показов 4795. Ответов 29 Метки нет (Все метки) Задача такая. Есть документ, в нём столбец (например количество). Этот документ меняется каждый день, значения в столбце тоже, имя документа постоянно. Позиция столбца также всегда постоянна. Этот столбец нужно копировать в другой документ, со смещением позиции на 1 столбец вправо. По итогу получить большой документ (за месяц), где будут столбцы слева направо за каждый день из исходного документа. Поможите? 0

@mc-black 2786 / 718 / 106 Регистрация: 04.02.2011 Сообщений: 1,443
	03.03.2014, 13:14
	Сообщение было отмечено как решение Решение Уверен найдутся желающие помочь (точнее написать Вам код на VBA), если прикрепить 1-2 примера исходного документа и примерный образец конечного документа (за месяц). Исходные данные, вид желаемого результата наряду с текстом технического задания имеют решающее значение для написания работающей программы. 0

@Je11 1 / 1 / 0 Регистрация: 06.03.2013 Сообщений: 84
	03.03.2014, 13:53 [ТС]
	Первый документ со столбцом, в котором каждый день меняются числовые значения stat_день Из него нужно копировать столбец в документ stat_меc, со смещением вправо, чтоб по итогу месяца получить 30 столбцов. 0

@Je11 1 / 1 / 0 Регистрация: 06.03.2013 Сообщений: 84
	04.03.2014, 11:50 [ТС]
	Помогите разобраться пож. 0

@Je11 1 / 1 / 0 Регистрация: 06.03.2013 Сообщений: 84
	05.03.2014, 11:30 [ТС]
	C этим куском разобрался, мне нужно получить немного другое на выходе. А именно: макрос отдельным файлом, не привязанным к этим документам. Чтоб при его запуске он обращался к документу stat_день, брал из него колонку и записывал в документ stat_месяц. При каждом запуске макроса это повторялось и добавлялись колонки в документ stat_месяц с сохранением предыдущих. 0

@Je11 1 / 1 / 0 Регистрация: 06.03.2013 Сообщений: 84
	06.03.2014, 14:55 [ТС]
	Спасибо за помощь. Добавил путь к файлам, проверил сто раз, но вываливает в дебаг из-за них. 0

@Je11 1 / 1 / 0 Регистрация: 06.03.2013 Сообщений: 84
	11.03.2014, 11:28 [ТС]
	Вот, ругается, файлы есть, пути проверил: Миниатюры 0

@mc-black 2786 / 718 / 106 Регистрация: 04.02.2011 Сообщений: 1,443
	11.03.2014, 12:33
	В засвеченной строке удалите часть: "ActiveWorkbook.Path &" 1

@Je11 1 / 1 / 0 Регистрация: 06.03.2013 Сообщений: 84
	11.03.2014, 13:26 [ТС]
	Удалил, всё так же. Что-то не так, может с синтаксисом не порядок? 0

@mc-black 2786 / 718 / 106 Регистрация: 04.02.2011 Сообщений: 1,443
	11.03.2014, 15:17
	На две строки ниже подсвеченного кода есть такая же ошибка. Если есть ошибка с выбросом в Debug, напиши также текст сообщения об ошибке (или заскринь). 0

@Je11 1 / 1 / 0 Регистрация: 06.03.2013 Сообщений: 84
	11.03.2014, 15:31 [ТС]
	Ошибка Run-Time Error 13 0

@Je11 1 / 1 / 0 Регистрация: 06.03.2013 Сообщений: 84
	11.03.2014, 16:11 [ТС]
	Удалил в двух местах "ActiveWorkbook.Path &", изменил на всякий случай названия на английские, всё равно: Миниатюры 0

@Je11 1 / 1 / 0 Регистрация: 06.03.2013 Сообщений: 84
	11.03.2014, 17:48 [ТС]
	То же самое происходит. Обе книги открываю, макрос запускаю кнопкой, результат - дебаггер, подсвечивает строку Set WB = Workbooks("day.xls") 'имя книги дня 0