Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.12.2011, 09:46   #1
dr.Chas
***
Участник клуба
 
Аватар для dr.Chas
 
Регистрация: 30.07.2007
Сообщений: 1,162
По умолчанию Перебрать значения столбца и заменить их номерами ячеек

Есть табличка с данными (лист1). Там фамилии повторяющиеся в одном столбце. На другом листе я выбрал уникальные фамилии (лист2). Теперь нужно пройтись по этому столбцу в первом листе, сравнить все фамилии на 1 и 2 листе и если совпадают заменить все фамилии, номером ячейки из второго листа.

Начал делать сам, но мои познания в вба вообще нулевые.



--------- примечание модератора - вдруг кому пригодится --------------
Цитата:
Надстройка LOOKUP предназначена для сравнения и подстановки значений в таблицах Excel.

Если вам надо сравнить 2 таблицы (по одному столбцу, или по нескольким),
и для совпадающих строк скопировать значения выбранных столбцов из одной таблицы в другую,
надстройка «Lookup» поможет сделать это нажатием одной кнопки.


В настройках программы можно задать:
  • где искать сравниваемые файлы (использовать уже открытый файл, загружать файл по заданному пути, или же выводить диалоговое окно выбора файла)
  • с каких листов брать данные (варианты: активный лист, лист с заданным номером или названием)
  • какие столбцы сравнивать (можно задать несколько столбцов)
  • значения каких столбцов надо копировать в найденные строки (также можно указать несколько столбцов)

Скачать надстройку для сравнения таблиц Excel и копирования данных из одинаковых строк


Последний раз редактировалось EducatedFool; 30.09.2013 в 10:01.
dr.Chas вне форума Ответить с цитированием
Старый 20.12.2011, 09:49   #2
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

Пример файла нужен.
так быстрее и, главное, точнее будет.
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума Ответить с цитированием
Старый 20.12.2011, 10:05   #3
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

А тут ВБА и не нужно
Чтобы заменить фамилии числами, скопируйте столбец с числами и вставьте на место фамилий КАК ЗНАЧЕНИЯ.
Вложения
Тип файла: rar Книга11.rar (4.0 Кб, 10 просмотров)
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 20.12.2011, 10:07   #4
dr.Chas
***
Участник клуба
 
Аватар для dr.Chas
 
Регистрация: 30.07.2007
Сообщений: 1,162
По умолчанию

Цитата:
Сообщение от VictorM Посмотреть сообщение
Пример файла нужен.
так быстрее и, главное, точнее будет.
Так спасибо за отклик, сейчас пока у самого что-то стало получилось. Но всё равно думаю полностью не осилю, но пока пробую

В файле книга, первый лист данные, во втором фамилии.
Нужно в первом листе на место фамилии поставить номер ячейки этой фамилии из второго листа.

Спасибо всем работает. Оказалось всё просто
Вложения
Тип файла: zip пример.xlsx.zip (9.6 Кб, 10 просмотров)

Последний раз редактировалось dr.Chas; 20.12.2011 в 10:24.
dr.Chas вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Перебрать все значения ip таблицы для пинга. Aleksandr Общие вопросы Delphi 0 06.07.2011 17:01
перебрать все значения автофильтра Bape}l{ka Microsoft Office Excel 3 28.06.2011 15:11
Перебрать все значения столбца по условию. Aleksandr Общие вопросы Delphi 5 23.06.2011 11:39
Удачить одинаковые номера из столбца MaxPower06 Microsoft Office Excel 1 02.03.2011 16:54
Как найти все N-значения и заменить их на значения из 2-х ячеек? Smile2007 Microsoft Office Excel 10 09.12.2010 09:34