И снова Excel + 1C (объединные ячейки) #259157

Привет! Снова парюсь с Excel-ем. Проблема следующая. В файле, допустим 3 колонки: Код, Наименование, Количество В первой строке ячейки объдинены и в них содержится текст, который мне не нужен. А вот с следующей ячейки могут быть не объединены и ВОТ ЭТИ ДАННЫЕ мне и нужны. Проблема что строки перемешаны без порядка. Вопрос - Как перебирая последовательно строки файла Excel определить: 1. объединены ли ячейки? 2. количество ячеек в строке? Вот такая задача...

Блин, бот тут не к месту. Убейте его.

Не трожь железяку!!! Бот - это наше все!!!

MergeCells

не понял, если можно поподробнее

Нельзя!

if Range("A1").MergeCells then  msgbox("Эта ячейка объединена") endif

Слушай, sivalor. Т.е. на сколько я понял мне код надо строить примерно так Если Range("A1").MergeCells  = 1 Тогда продолжить; Что мне кажется что это не прокатит, попробую щас конечно

Не прокатит...

Ну тогда как мне находить строки не объединенные?

Загляни пожалуйста в v7: 1C + Word (ввод данных в колонтитулы)

+

а как ты проходишь по строкам? как организована таблица? я так понял: |Удобрения| ... мну делает так For i=1 to ВсегоСтрок  If Range("A1").Offset(1,0).MergeCells=false then 'только необъединенные рассматриваем    получаем код и наименование  endif next i

да, sivalor, таблица организована именно так Сейчас проверю тобою предложенный код... только попробую прикрутить в 1С

упс If Range("A1").Offset(i,0).MergeCells=false then 'только необъединенные рассматриваем   получаем код и наименование