Дата: Воскресенье, 17.11.2013, 15:06 |
Сообщение № 1
Группа: Гости
Есть таблица чисел. Каждому числу таблицы поставлено в соответствие какое-то другое число. Как заменить сразу все числа таблицы на другие числа, чтобы не заменять их по одному?
Есть таблица чисел. Каждому числу таблицы поставлено в соответствие какое-то другое число. Как заменить сразу все числа таблицы на другие числа, чтобы не заменять их по одному?Сергей
Дата: Воскресенье, 17.11.2013, 15:43 |
Сообщение № 6
Группа: Гости
Я чайник, к тому же незарегистрированный. Таблица: 1,7,2,5,10 3,1,4,18,6 и т.д. как заменить 1,2,3,4 на 5,6,7,8? [moder]Так зарегистрируйтесь. В чем проблема-то?
Я чайник, к тому же незарегистрированный. Таблица: 1,7,2,5,10 3,1,4,18,6 и т.д. как заменить 1,2,3,4 на 5,6,7,8? [moder]Так зарегистрируйтесь. В чем проблема-то?Сергей
RAN, про кнопочку я знаю, но там можно только по одному числу заменять, а если в таблице не 3 строчки, а 600? И чисел не 4 а 40?Потому и обратился к профи. Про ВПР ответ в точку, сейчас пытаюсь разобраться, но это надолго.
RAN, про кнопочку я знаю, но там можно только по одному числу заменять, а если в таблице не 3 строчки, а 600? И чисел не 4 а 40?Потому и обратился к профи. Про ВПР ответ в точку, сейчас пытаюсь разобраться, но это надолго.hermit
Сообщение отредактировал hermit - Воскресенье, 17.11.2013, 16:40
почему вы не выкладываете файл? Скорее всего вашу задачу можно решить только с помощью макросов. Непривязанный к вашей таблице макрос вам будет труднее перенести в вашу таблицу.
почему вы не выкладываете файл? Скорее всего вашу задачу можно решить только с помощью макросов. Непривязанный к вашей таблице макрос вам будет труднее перенести в вашу таблицу.SergeyKorotun
Sub replace() Dim a As Variant Dim и As Variant a = Array(1, 2, 3, 4) b = Array(5, 6, 7, 8) Application.ScreenUpdating = False For i = LBound(a) To UBound(a) Cells.replace What:=a(i), Replacement:=b(i), LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Next Application.ScreenUpdating = True End Sub
[/vba]
[vba]
Код
Sub replace() Dim a As Variant Dim и As Variant a = Array(1, 2, 3, 4) b = Array(5, 6, 7, 8) Application.ScreenUpdating = False For i = LBound(a) To UBound(a) Cells.replace What:=a(i), Replacement:=b(i), LookAt:=xlPart, SearchOrder _ :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False Next Application.ScreenUpdating = True End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
Таблица: 
