powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Выборка только видимых ячеек из выделленного диапазона
4 сообщений из 4, страница 1 из 1
Выборка только видимых ячеек из выделленного диапазона
    #37192513
Let
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Let
Гость
Добрый день всем!

Столкнулся вроде бы с тривиальной задачей, но никак не получается ее решить:

Исходные данные (на чистом, вновь созданном листе):
1. ячейки A1:B1 объединены
2. Выделен диапазон A1:C1

Задача: выбрать только те ячейки из выделенного диапазона, которые я визульно вижу на листе

вот этот код
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Dim r As Range, c As Variant

Set r = Selection

For Each c In r.Cells
    Debug.Print c.Address
    
Next

Выводит мне 3 ячейки: A1, B1, C1, а мне надо только A1 и C1, т.к. фактически B1 у меня нет - она объединена с A1

Подскажите, пожалуйста, как надо делать правильно (ну или хотя бы в какую сторону копать).
Заранее благодарен!
...
Рейтинг: 0 / 0
Выборка только видимых ячеек из выделленного диапазона
    #37192515
Let
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Let
Гость
Забыл добавить: MS Excel 2002

ЗЫ: Простите за опечатку в названии топика
...
Рейтинг: 0 / 0
Выборка только видимых ячеек из выделленного диапазона
    #37192612
_slan_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Let,

примерно так:

Sub t()
Dim x
With Selection
For Each x In .Cells
If x.MergeArea(1).Address = x.Address Then
Debug.Print x.Address(0, 0)
End If
Next
End With
End Sub
...
Рейтинг: 0 / 0
Выборка только видимых ячеек из выделленного диапазона
    #37192934
Let
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Let
Гость
_slan_,

Огромное спасибо, это то что надо!
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Выборка только видимых ячеек из выделленного диапазона
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]