|
Элегантный способ найти/заменить
|
|||
---|---|---|---|
#18+
Комрады, на одном листе в столбце вписаны некие ID, на другом листе - соответствие этих ID тексту. Задача: перенести текст на первый лист в соответствии с ID. Как сделать это в VBA красиво? Мне в голову кроме последовательного find и replace ничего не идет, но каждый цикл нужно приписывать руками (в зависимости от количества ID). Подскажите балбесу, как быть. _____________________ А что на самом деле хотел сказать "Frost_Imp" никто не знает, так как администрация форума попросила его быть вежливым. ... |
|||
:
Нравится:
Не нравится:
|
|||
14.02.2013, 11:28 |
|
Элегантный способ найти/заменить
|
|||
---|---|---|---|
#18+
Frost_Imp, Ну так определяйте последний ID в столбце, и подставляйте в ваш цикл. ... |
|||
:
Нравится:
Не нравится:
|
|||
14.02.2013, 12:27 |
|
Элегантный способ найти/заменить
|
|||
---|---|---|---|
#18+
VSVLAD, так они не по порядку... ... |
|||
:
Нравится:
Не нравится:
|
|||
14.02.2013, 13:00 |
|
Элегантный способ найти/заменить
|
|||
---|---|---|---|
#18+
Frost_Impна одном листеExcel? тогда тупо ВПР()... ... |
|||
:
Нравится:
Не нравится:
|
|||
14.02.2013, 13:07 |
|
Элегантный способ найти/заменить
|
|||
---|---|---|---|
#18+
Ну да, ВПР-ом и пришлось делать. Думал, есть что-нибудь покрасивее, так как ВПР - лишние телодвижения (столбец вставь, формулу протяни и т.д.). Кстати, насчет "протягивания" формул. Мне нужно растянуть формулу до последнего значения в левом столбце. Запись макроса максимум выдает строку Selection.AutoFill Destination:=Range("D2:D21") которая меня не устраивает, так как сегодня на листе D21 записей, завтра будет D50. Как растянуть формулу до последнего значения в ячейках? Программно разумеется. ... |
|||
:
Нравится:
Не нравится:
|
|||
14.02.2013, 14:27 |
|
Элегантный способ найти/заменить
|
|||
---|---|---|---|
#18+
Frost_Imp, Я как раз и имел ввиду найти последнюю занятую строку, типо такого UsedRange.End(xlDown).Row или Range("D1:D65000").Find("").Row-1 Ну а дальше цикл и вложенный цикл пройтись и заменить. Способ не быстрый, но можно ренжи считать разом в массив. Способов много, зависит от данных, как они устроены по структуре и их колва ... |
|||
:
Нравится:
Не нравится:
|
|||
14.02.2013, 14:40 |
|
Элегантный способ найти/заменить
|
|||
---|---|---|---|
#18+
Хм, а такой вопрос (на засыпку: как можно программно найти в столбце любое десятизначное число? ... |
|||
:
Нравится:
Не нравится:
|
|||
14.02.2013, 16:45 |
|
Элегантный способ найти/заменить
|
|||
---|---|---|---|
#18+
Frost_Impнайти в столбце любое десятизначное число?Дай чёткое однозначное определение, что в данном случае "десятичное число". ... |
|||
:
Нравится:
Не нравится:
|
|||
14.02.2013, 16:47 |
|
Элегантный способ найти/заменить
|
|||
---|---|---|---|
#18+
10 цифр. Целое ... |
|||
:
Нравится:
Не нравится:
|
|||
14.02.2013, 16:48 |
|
Элегантный способ найти/заменить
|
|||
---|---|---|---|
#18+
Ппц "чёткое однозначное определение". Всегда 10 цифр? или от 1 до 10? Знака никогда нет? Других символов, кроме цифровых, гарантированно нет? Видишь, сколько вопросов... и это ещё не всё... ... |
|||
:
Нравится:
Не нравится:
|
|||
14.02.2013, 18:26 |
|
Элегантный способ найти/заменить
|
|||
---|---|---|---|
#18+
Frost_Imp10 цифр. Целое Код: vbnet 1.
... |
|||
:
Нравится:
Не нравится:
|
|||
14.02.2013, 19:37 |
|
Элегантный способ найти/заменить
|
|||
---|---|---|---|
#18+
Frost_Impнайти в столбце любое десятизначное число Код: vbnet 1. 2. 3. 4. 5.
... |
|||
:
Нравится:
Не нравится:
|
|||
14.02.2013, 20:44 |
|
Элегантный способ найти/заменить
|
|||
---|---|---|---|
#18+
AndreTMFrost_Imp10 цифр. Целое Код: vbnet 1.
"-100000000" Казанский Код: vbnet 1. 2. 3. 4. 5.
"1,23456789" ... |
|||
:
Нравится:
Не нравится:
|
|||
14.02.2013, 21:09 |
|
Элегантный способ найти/заменить
|
|||
---|---|---|---|
#18+
Frost_Impдесяти зна чное число?Akina"десятичное число" ... |
|||
:
Нравится:
Не нравится:
|
|||
14.02.2013, 21:13 |
|
Элегантный способ найти/заменить
|
|||
---|---|---|---|
#18+
Akina"-100000000"Ну, не будем утрировать - я предположил, что имеется в виду натуральное . А на всём множестве даже наполовину мой ответ - правильный ... |
|||
:
Нравится:
Не нравится:
|
|||
14.02.2013, 21:45 |
|
Элегантный способ найти/заменить
|
|||
---|---|---|---|
#18+
Frost_Imp, VLookup ... |
|||
:
Нравится:
Не нравится:
|
|||
15.02.2013, 02:51 |
|
|
start [/forum/topic.php?fid=60&fpage=62&tid=2157148]: |
0ms |
get settings: |
8ms |
get forum list: |
13ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
28ms |
get topic data: |
30ms |
get forum data: |
3ms |
get page messages: |
53ms |
get tp. blocked users: |
2ms |
others: | 13ms |
total: | 156ms |
0 / 0 |