MsOffice

Pliomera · Конфигурация компьютера

На кнопку вешай код:

Sub CopyTo()
Sheets("Forma").Cells(1, 1).Value = Sheets("Basa").Cells(Range("A2:A1000").End(xlDown).Row, 1).Value
End Sub

Здесь A2:A1000 - диапазон в котором размещен список фамилий. Если он у тебя другой - подставь соответственно.

Профиль · Отправлено: **20:13, 08-09-2006** | #3

Pliomera, спасибо, помогло. А еще вопрос: как сделать проверку в списке фамилий(диапазон заранее неизвестен) и если обнаружены две одинаковые, то автоматическое удаление одной из них.

sitaka Сообщения: n/a	Профиль \| Цитировать Pliomera, спасибо, помогло. А еще вопрос: как сделать проверку в списке фамилий(диапазон заранее неизвестен) и если обнаружены две одинаковые, то автоматическое удаление одной из них.
	Отправлено: 20:13, 08-09-2006 \| #3