Снова торможу с адресацией...

[tae1980]

[QUOTE=The_Prist;486807]Одну скобку забыл

.Range(.Cells(Строка, Колонка), .Cells(.cells(Строка, Колонка).End(xlDown).row, Колонка)).ClearContents

/QUOTE]
Про попытке воздействовать на объединенную ячейку (на первую ячейку) выводиться сообщение: "Изменить часть объединенной ячейки невозможно."
Это лечиться?

[The_Prist]

Лечиться снятием объединения, либо захватом большего диапазона, чтоб объединенная ячейка была захвачена полностью.

Для снятия объединения

.Range(.Cells(Строка, Колонка), .Cells(.cells(Строка, Колонка).End(xlDown).row, Колонка)).UnMerge
.Range(.Cells(Строка, Колонка), .Cells(.cells(Строка, Колонка).End(xlDown).row, Колонка)).ClearContents

[tae1980]

Сообщение от The_Prist

Лечиться снятием объединения, либо захватом большего диапазона, чтоб объединенная ячейка была захвачена полностью.

Для снятия объединения

.Range(.Cells(Строка, Колонка), .Cells(.cells(Строка, Колонка).End(xlDown).row, Колонка)).UnMerge
.Range(.Cells(Строка, Колонка), .Cells(.cells(Строка, Колонка).End(xlDown).row, Колонка)).ClearContents

Задача усложняется тем что очищаются ВСЕ занятые ячейки, А вот какай из них из них окажется объединено (а может все они) не известно, и выяснить это без поячейного просмотра не возможно. То есть теряется вся прелесть метода очисти. И легче обойтись без него...

[tae1980]

Сообщение от The_Prist

Лечиться снятием объединения, либо захватом большего диапазона, чтоб объединенная ячейка была захвачена полностью.

Для снятия объединения

.Range(.Cells(Строка, Колонка), .Cells(.cells(Строка, Колонка).End(xlDown).row, Колонка)).UnMerge
.Range(.Cells(Строка, Колонка), .Cells(.cells(Строка, Колонка).End(xlDown).row, Колонка)).ClearContents

Пришлось отказаться от этого метода... :(
Пока использую вот такой код:

                            i = 0
                            Do Until Sheets(Лист).Cells(Строка + i, Колонка).Value = ""
                                Sheets(Лист).Cells(Строка + i, Колонка).Value = ""
                                i = i + 1
                            Loop

[The_Prist]

Так что мешает так сделать?

.Range(.Cells(Строка, Колонка), .Cells(.Cells(Строка, Колонка).End(xlDown).Row, Колонка)).Value = ""

[tae1980]

Сообщение от The_Prist

Так что мешает так сделать?

.Range(.Cells(Строка, Колонка), .Cells(.Cells(Строка, Колонка).End(xlDown).Row, Колонка)).Value = ""

Как оказалось ни чего не мешает. :) Спасибо!

[tae1980]

Сообщение от The_Prist

Так что мешает так сделать?

.Range(.Cells(Строка, Колонка), .Cells(.Cells(Строка, Колонка).End(xlDown).Row, Колонка)).Value = ""

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

[The_Prist]

Сообщение от tae1980

Будешь смеяться...

Конечно буду. Сама по себе данная строка не может стирать другой диапазон. Она стирает только тот диапазон, который ей задали.
Единственный затык - она не стирает значение, а заносит в ячейку строку нулевой длины, отсюда и может последовать неверное определение последней ячейки.

На всякий случай попробуй так:

.Range(.Cells(Строка, Колонка), .Cells(.Cells(Строка, Колонка).End(xlDown).Row, Колонка)).Value = Empty

[tae1980]

Сообщение от The_Prist

На всякий случай попробуй так:

.Range(.Cells(Строка, Колонка), .Cells(.Cells(Строка, Колонка).End(xlDown).Row, Колонка)).Value = Empty

Результат (вернее проблемы) то же.
Как-то странно оно ведет себя при многокрантых вызовах. Ну да ладно, работа цикла мены вполне устраивает, да и строчек не на много больше.

Спасибо за советы!