Блог

Я смог закодировать макрос, который выполняет следующее:

• скопируйте столбец A в столбец B в формате «мм-дд-гггг».
• скопируйте столбец A в столбец C в формате «h: mm».

Теперь мне нужно сделать следующее, но я не знаю как…

• Скопируйте вновь созданные столбцы B, C и каждый отдельный столбец справа от новых столбцов в их собственные отдельные книги. Я бы хотел, чтобы книги назывались на основе «текущего заголовка листа» и каждого отдельного имени строки 2. В качестве примера я прикрепил изображение данных книги и то, как будет выглядеть конечный продукт на 1 листе.

Я думаю, что код должен был бы выполнить следующее: создать переменную столбца X и строку 2 на основе диапазона. Затем укажите, что для каждого столбца X, если строка 2 содержит значение, затем скопируйте столбец B, столбец C и текущий столбец X. Затем вставьте (3) столбца (B, C и переменную столбца X) в новую книгу и назовите книгу на основе «заголовок текущего листа имя ячейки текущего столбца X, строка 2».

Я ценю чью-либо помощь, пожалуйста, дайте мне знать, если то, что я говорю, сбивает с толку, и я постараюсь прояснить это.

Изображения:

Данные: изображение данных

Конечный продукт 1: изображение конечного продукта 1

Конечный продукт 2: изображение конечного продукта 2

Текущий макрос:

 Sub Time_Series()

Dim CurrentSheet As Worksheet

 With CurrentSheet
      Range("A:A").Copy
      Range("B:C").Insert
      Range("B:B").NumberFormat = "mm-dd-yyyy;@"
      Range("C:C").NumberFormat = "h:MM;@"

 End With

End Sub
 

Я думаю, что вы говорите о копировании данных с листа на лист, правильно? Рабочие книги относятся к скрытым файлам Excel. Рабочие книги содержат 1 или более листов (это вкладки внизу).

Я бы посоветовал вам просто выполнить форматирование текста вручную в столбце рабочего листа. Выделите нужные столбцы (вы можете щелкнуть заголовок столбца, чтобы выбрать весь столбец), затем щелкните правой кнопкой мыши и выберите формат ячеек. Вы можете форматировать ячейки, используя определенный формат, выбрав правильную категорию. Например, Date имеет несколько различных доступных опций. Если ни один из них не подходит для вас, выберите Пользовательский, а затем введите форматирование, которое вы хотите использовать. То же самое касается времени.

Если я правильно понимаю, вы хотите скопировать два новых столбца в их собственный рабочий лист. Если у вас есть только заданное количество дополнительных столбцов, вам следует просто вставить соответствующий лист в рабочую книгу вручную. Это можно сделать динамически, но выполнение этого вручную позволяет вам называть листы и намного проще определить, какой лист активен.

Предполагая, что у вас есть лист с именем NewSheet и что команды копирования и вставки работают (я их не тестировал)…

Выберите диапазон, как вы делали в своем примере кода…

 CurrentSheet.Activate  'Make sure you've got the sheet in focus
CurrentSheet.Range("A:A").Copy  'Grabs your column data
 

А теперь перейдите к другому листу.

 NewSheet.Activate  'this brings the other sheet into focus
NewSheet.Range("A:A").Insert  'Inserts whatever you have in the clipboard from your previous copy
 

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

 worksheets("NewSheet").range("A:A").Insert  'Where NewSheet is the name shown on the tab at the bottom of the Spreadsheet
 

Кроме того, следует помнить одну вещь: программа записи макросов Excel действительно отлично подходит для записи того, что вы хотите сделать. Нужно просто знать, что вы хотите сделать, нажать кнопку записи, а затем скопировать и вставить код. Устройство записи макросов записывает код, который он генерирует, в модуль. Затем вы можете взять его и изменить, как вам нужно.