У меня есть ежедневные CSV-файлы, из которых мне нужно создавать отчеты. Заголовки csv находятся в последней строке, первая строка - это комментарий, допускающий удаление.

Я хочу иметь возможность открыть свою книгу и запустить макрос, который:

  1. Подскажите мне выбрать подходящий файл csv
  2. Подскажите мне имя рабочего листа и создайте рабочий лист с этим именем
  3. Вытяните данные на новый лист
  4. Вырежьте заголовки из последней строки и замените ими первую строку.

(4) был камнем преткновения. В файлах неизвестное количество строк, поэтому мне нужно идентифицировать эту последнюю строку как часть процесса. Они также могут изменять количество столбцов, поэтому я не могу использовать фиксированный набор заголовков.

0
Aeredhal 10 Июл 2013 в 18:42

1 ответ

Лучший ответ

Попробуйте использовать это.

Cells.SpecialCells(xlLastCell).Address

Вы получите адрес правой нижней ячейки.

0
flied onion 10 Июл 2013 в 19:05
Спасибо, это было ключом. Я решил проблему следующим образом, и я скорректирую свой импорт, чтобы игнорировать первую строку Sub cutlastrow() Cells.SpecialCells(xlLastCell).Select Rows(ActiveCell.Row).Cut Rows(1).Insert End Sub
 – 
Aeredhal
10 Июл 2013 в 19:45