Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Поиск значений макросом и подстановка их в другую таблицу - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск значений макросом и подстановка их в другую таблицу (Макросы/Sub)
Поиск значений макросом и подстановка их в другую таблицу
Tavlar Дата: Четверг, 24.12.2020, 13:04 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 48
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Здравствуйте.
Стоит следующая задача
Из таблицы 1 нужно найти все номера и занести в таблицу 2, как указано в примере
Т.е. нужно перебрать все ячейки в диапазоне F5:I9, и, если там есть номер, перенести этот номер в ячейку N5, а в ячейку M5 занести соответствующее значение из строки 4 таблицы 1
К сообщению приложен файл: 6106005.xlsx(9.4 Kb)
 
Ответить
СообщениеЗдравствуйте.
Стоит следующая задача
Из таблицы 1 нужно найти все номера и занести в таблицу 2, как указано в примере
Т.е. нужно перебрать все ячейки в диапазоне F5:I9, и, если там есть номер, перенести этот номер в ячейку N5, а в ячейку M5 занести соответствующее значение из строки 4 таблицы 1

Автор - Tavlar
Дата добавления - 24.12.2020 в 13:04
Kuzmich Дата: Пятница, 25.12.2020, 19:58 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 575
Репутация: 113 ±
Замечаний: 0% ±

Excel 2003
[vba]
Код
Sub iNumber()
Dim rng As Range
Dim n As Integer
    n = 5
  For Each rng In Range("F5:I9")
    If Not IsEmpty(rng) Then
      Cells(n, "L") = Range("E5")
      Cells(n, "M") = Cells(4, rng.Column)
      Cells(n, "N") = rng.Value
      n = n + 1
    End If
  Next
End Sub
[/vba]
 
Ответить
Сообщение[vba]
Код
Sub iNumber()
Dim rng As Range
Dim n As Integer
    n = 5
  For Each rng In Range("F5:I9")
    If Not IsEmpty(rng) Then
      Cells(n, "L") = Range("E5")
      Cells(n, "M") = Cells(4, rng.Column)
      Cells(n, "N") = rng.Value
      n = n + 1
    End If
  Next
End Sub
[/vba]

Автор - Kuzmich
Дата добавления - 25.12.2020 в 19:58
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск значений макросом и подстановка их в другую таблицу (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!