ОшЫбка? свойства End(xlUp), или что в ячейках файла

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

ОшЫбка? свойства End(xlUp), или что в ячейках файла (Макросы/Sub)

RAN

Дата: Воскресенье, 18.06.2017, 11:08 | Сообщение № 1

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

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

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

2010

Мяв!
Получил файл выгрузки, в котором свойство End(xlUp) не правильно находит последнюю ячейку.
Это не один сломанный файл, а все файлы, полученные данной выгрузкой.
Воссоздать подобное вручную не получается.
В XML строка выглядит так
<row r="17" spans="1:2" x14ac:dyDescent="0.2"><c r="A17" s="1" t="s"><v>0</v></c><c r="B17" s="1" t="s"><v>0</v></c></row>
Вопрос, что-же в этих ячейках, и как оно получается?
И тут тоже
[p.s.]Ошибка, ему, виш-ли не ндравится![/p.s.]

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

Быть или не быть, вот в чем загвоздка!

Ответить

KuklP

Дата: Воскресенье, 18.06.2017, 11:15 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Андрей, попробуй так:
[vba]

Код

Sub lsR()
    Dim lr&
    Columns(2) = Application.Trim(Columns(2))
    lr = Sheets(1).Cells(Sheets(1).Rows.Count, "B").End(xlUp).Row
    MsgBox lr
End Sub

[/vba]