19.10.2005, 22:07
Коллега, :) разработчики позаботились обо всем.
Выделите один, затем нажмите Shift+F8 и выделите другой, затем опять Shift+F8, и третий....
Никакой мыши!
Avsha
20.10.2005, 05:19
Спасибо, ну вот вроде "добили" тему :)
Avsha
01.11.2005, 06:42
Нет предела свершенству!
Теперь диапазоны самовыделяются:
Sub mas1()
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Set Mod_Ravno.R1 = Selection
ActiveWorkbook.Names.Add Name:="mas1", RefersToR1C1:=Selection
End Sub
Sub mas2()
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Set Mod_Ravno.R2 = Selection
ActiveWorkbook.Names.Add Name:="mas2", RefersToR1C1:=Selection
End Sub
Сравнение и соединение таблиц с данными в Excel
Допустим имеется 2 таблицы с данными, при этом 1 столбец в данных таблицах одинаков, таблицы размещены на разных листах. В моем примере одинаков столбец "А".
Таблица 1. Лист1.
Таблица 2.Лист2.
Необходимо, объединить данные таблицы при этом сравнение будет производится по столбцу "А"(ФИО).Будем использовать стандартную функцию Excel - ВПР.
