Добрый день! Имеется таблица с критериями и их значениями. Нужно заменить значения в таблице на номер стоки из таблицы с критериями Спасибо за внимание!
Добрый день! Имеется таблица с критериями и их значениями. Нужно заменить значения в таблице на номер стоки из таблицы с критериями Спасибо за внимание!rikitiki
Тема странная. При чем тут Цикл? Какие значения? Где меняете?
Файл-пример ничего не проясняет. Странно выглядит в первой таблице значение "Отсутствует" в ячейке C5. Крит1...Крит4 в первой строке и Крит1...Крит3 - в первом столбце - это совсем разные измерения? Или нет?
Вторая таблица вообще непонятно, как формируется, к тому же строки у нее все одинаковые, и что это означает?
Тема странная. При чем тут Цикл? Какие значения? Где меняете?
Файл-пример ничего не проясняет. Странно выглядит в первой таблице значение "Отсутствует" в ячейке C5. Крит1...Крит4 в первой строке и Крит1...Крит3 - в первом столбце - это совсем разные измерения? Или нет?
Вторая таблица вообще непонятно, как формируется, к тому же строки у нее все одинаковые, и что это означает?abtextime
abtextime, Для замены значений мне кажется нужен цикл. По поводу ячейки С5. У крит2 количество значений 4, а у крит1, крит3, крит4 по 3. Вот как должно быть в итоге:
abtextime, Для замены значений мне кажется нужен цикл. По поводу ячейки С5. У крит2 количество значений 4, а у крит1, крит3, крит4 по 3. Вот как должно быть в итоге: rikitiki
А если менять надо прямо в ячейках, то макросом [vba]
Код
Public Sub MyReplace() Dim Crit As Range, R As Range Set Crit = Range("A1:E5") Set R = Range("A9:E15") For i = 1 To R.Rows.Count
For j = 2 To R.Columns.Count For k = 2 To Crit.Rows.Count If R.Cells(i, j).Value = Crit.Cells(k, j).Value Then R.Cells(i, j).Value = k Exit For End If Next k Next j Next i End Sub
[/vba]
А если менять надо прямо в ячейках, то макросом [vba]
Код
Public Sub MyReplace() Dim Crit As Range, R As Range Set Crit = Range("A1:E5") Set R = Range("A9:E15") For i = 1 To R.Rows.Count
For j = 2 To R.Columns.Count For k = 2 To Crit.Rows.Count If R.Cells(i, j).Value = Crit.Cells(k, j).Value Then R.Cells(i, j).Value = k Exit For End If Next k Next j Next i End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
