Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Найти определенную строку и поменять одно значения на другое.
 
   Здравствуйте.Даны 2 таблицы.В первую таблицу вводятся  исходные данные номер строки.Во  второй таблице  ищется строка относительно номера.И при нахождения этой строки меняются  только  числа 1 на 2 в данных этой строки.Нули не меняются.
   И при удаления чисел в таблице №1 все возвращалось все как было .То есть  в талице №2 число 2 менялось  на 1
 
на месте (в исходной таблице) только макросом
Лень двигатель прогресса, доказано!!!
 
Привет!
Код
Option Explicit

Sub Менять_InExSu()

  Dim r As Range
  Dim i As Long, x As Long, el As Long

  With ActiveSheet
'определяю диапазон
    Set r = Range(.Cells(4, 13), Cells(16, 18))
'и произвожу в нём замену
    r.Replace 2, 1

'определяю диапазон
    Set r = Range(.Cells(3, 13), .Cells(3, 18))
    For i = 4 To 11 'номера строк в примере
      el = .Cells(i, 5)
      If el > 0 Then _
         r.Offset(el, 0).Replace 1, 2 'заменяю в диапазоне
    Next
  End With
End Sub
Изменено: Inexsu - 21 Мар 2018 08:43:15 (добавил комментарии)
 
Inexsu большое спс. Целый месяц формулу подбирал.
 Не подскажешь,  что  каждая  строка делает.Хотел бы разобраться.Так как каждая таблица  увеличится в размере.  
 
Добавил коменты.
 
Inexsu еще раз огромное спс
Страницы: 1
Читают тему (гостей: 1)