powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Range=Range как правильно сделать?
12 сообщений из 12, страница 1 из 1
Range=Range как правильно сделать?
    #34780318
Фотография udgeen69
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть строки, необходимо отловить одинаковые, для этого надо проверить
Код: plaintext
WS.Range ("B" + Trim(str(k)) + ":M" + Trim(str(k)))=WS.Range("B" + Trim(str(i)) + ":M" + Trim(str(i)))


Как максимально просто и быстро (строк много) сравнить их? Как перебирать я напишу сам.
Спасибо
...
Рейтинг: 0 / 0
Range=Range как правильно сделать?
    #34780345
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
лучше воспользоваться метом find и findnext
...
Рейтинг: 0 / 0
Range=Range как правильно сделать?
    #34780363
vkodor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Подстановка значений
...
Рейтинг: 0 / 0
Range=Range как правильно сделать?
    #34780901
Фотография udgeen69
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А как выбрать из Range("A1:Z1") (входящий в функцию сравнения параметр) элемент номер Х (Для сравнения по номеру)? Ну например как взять оттуда Range("A1"), а потом сделать offset?
...
Рейтинг: 0 / 0
Range=Range как правильно сделать?
    #34780922
Фотография udgeen69
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
IRange.Cells(0, X)?
...
Рейтинг: 0 / 0
Range=Range как правильно сделать?
    #34780924
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
Public Function RngAndRng(Rng1 As Range, Rng2 As Range) As Boolean
On Error Resume Next
 RngAndRng = Evaluate("and(" & Rng1.Address(, , , True) & "=" & Rng2.Address(, , , True) & ")")
End Function
...
Рейтинг: 0 / 0
Range=Range как правильно сделать?
    #34780925
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
в таких случаях обычно, если ситуация позволяет, сортирую диапазон, если нужно, предварительно делаю составной ключ. Потом нужно просто сравнивать соседние ячейки.
...
Рейтинг: 0 / 0
Range=Range как правильно сделать?
    #34780951
Фотография udgeen69
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Deggasad
Код: plaintext
1.
2.
3.
Public Function RngAndRng(Rng1 As Range, Rng2 As Range) As Boolean
On Error Resume Next
 RngAndRng = Evaluate("and(" & Rng1.Address(, , , True) & "=" & Rng2.Address(, , , True) & ")")
End Function


Спасибо!! Работает
*ушел читать про Evaluate
...
Рейтинг: 0 / 0
Range=Range как правильно сделать?
    #34780992
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
udgeen69
Спасибо!! Работает
*ушел читать про Evaluate

Evaluate только позволяет формулу просчитать обычную без листа.
Читай про AND() или И() и про массивы
{=И(H22:H38=C22:C38)}
вводится через <Ctrl> + <Alt> + <Enter>
...
Рейтинг: 0 / 0
Range=Range как правильно сделать?
    #34781282
Фотография udgeen69
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Deggasad udgeen69
Спасибо!! Работает
*ушел читать про Evaluate

Evaluate только позволяет формулу просчитать обычную без листа.
Читай про AND() или И() и про массивы
{=И(H22:H38=C22:C38)}
вводится через <Ctrl> + <Alt> + <Enter>

а где массивы в этом примере? Всмысле, что если вводить через строку формул, то надо было бы как массив вводить?
...
Рейтинг: 0 / 0
Range=Range как правильно сделать?
    #34781439
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
udgeen69 Deggasad udgeen69
Спасибо!! Работает
*ушел читать про Evaluate

Evaluate только позволяет формулу просчитать обычную без листа.
Читай про AND() или И() и про массивы
{=И(H22:H38=C22:C38)}
вводится через <Ctrl> + <Alt> + <Enter>

а где массивы в этом примере? Всмысле, что если вводить через строку формул, то надо было бы как массив вводить?

1) Если вводить в ячейку, то вводится через <Ctrl> + <Alt> + <Enter>, т.е. ответ да
2) Формула хоть где её не вводи обрабатывает массив.
...
Рейтинг: 0 / 0
Range=Range как правильно сделать?
    #34782560
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
udgeen69А как выбрать из Range("A1:Z1") (входящий в функцию сравнения параметр) элемент номер Х (Для сравнения по номеру)? Ну например как взять оттуда Range("A1"), а потом сделать offset?вот, читай здесь: http://sql.ru/forum/actualthread.aspx?tid=409876#3930377
...
Рейтинг: 0 / 0
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Range=Range как правильно сделать?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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