| Вопрос: Ексель, нужена легкая помощь | Добавлено: 07.06.08 12:20 |
Автор вопроса:  Тоха | ICQ: 407598602 |
|
Здраствуйте... ВБА я учил адвно и тут мне понадобилось его вспомнить
и проделать некоторые функции в экселе. Пока мне необходивы только 2 функции... Если сможете помоч то спасиб.... В екселе заполнены две калонки к примеру "А" и "С" до 70 строки (заполнены текстом). В ячеку "В1" нужно записать текстовое значение "А1" и "С1" через пробел. В "В2 нужно записать "А2" и "С2" через пробел и так до семидесятой... Если сможете то большое спасибо. И второе. в ячейке "С1" слово. это должно копироваться повторяться в этой колонке пока не появиться ячейка с каким то другим словом(в этой колонке). А следующее слово должно продолжаться до следующего с нимс не схожее слово и так далее |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа:  Smith ICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | | #1 | Добавлено: 07.06.08 18:49 |
Незнаешь ВБА, так и скажи НЕЗНАЮ 
For RowIndex=1 to 70 Cells(RowIndex, 2) = Cells(RowIndex, 1) & " " & Cells(RowIndex, 3) Next вспоминай 
|
||
|
Номер ответа: 2 Автор ответа: SmithICQ: ненавижу Вопросов: 28 Ответов: 317 |
Web-сайт: Профиль | | #2 | Добавлено: 07.06.08 18:57 |
|
Dim Слово As String Слово = Cells(1, 3) For RowIndex=2 to 70 If Cells(RowIndex, 3) = Empty Then Cells(RowIndex, 3) = Слово Else Слово = Cells(RowIndex, 3) End If Next |
||
|
Номер ответа: 3 Автор ответа: Тоха ICQ: 407598602 Вопросов: 3 Ответов: 3 |
Профиль | | #3 | Добавлено: 09.06.08 07:18 |
| Спасиб большое | ||
|
Номер ответа: 4 Автор ответа: JasminВопросов: 23 Ответов: 417 |
Профиль | | #4 | Добавлено: 10.06.08 09:09 |
|
А точно нужно VBA ? Можно Excel обойтись.
|
||
|
Номер ответа: 5 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #5 | Добавлено: 10.06.08 09:24 |
|
Этож надо формулы уметь писать
Я с перерасчётом формул помучался однажды и решил, что лучше всё длать на ВБА. |
||
|
Номер ответа: 6 Автор ответа: JasminВопросов: 23 Ответов: 417 |
Профиль | | #6 | Добавлено: 11.06.08 07:52 |
|
Ээээ...
1. B1=CONCATENATE(A1;" ";C1) Протянуть на все строки 2. Тут понадобится доп. столбец "  ". В "С" исх. данные.
1=1
2=IF(C2=""1;C2)
Протянуть на все строки Так пойдет ? ))
|
||
|
Номер ответа: 7 Автор ответа: JasminВопросов: 23 Ответов: 417 |
Профиль | | #7 | Добавлено: 11.06.08 07:54 |
|
Со сложным вычислением, например, ВПР на 20000 строк по 20 столбцов, согласна очень тяжело пересчитывает. А тут простенькие формулы.
|
||
|
Номер ответа: 8 Автор ответа: GDKВопросов: 13 Ответов: 348 |
Профиль | | #8 | Добавлено: 18.06.08 18:14 |
|
Да уж.
B1 =A1 & " " & C1 |
||
|
Номер ответа: 9 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #9 | Добавлено: 19.06.08 08:22 |
|
Тут конечно всё просто и гениально, а когда книга весит без малого 10м и перерасчет длиться полторы минуты ... Любовь к формулам быстро проходит. |
||
Страница: 1 |