сабж. Пробовал адрес написать, типа
1:1,3:3,5:5,... но он слишком длинный получается - компилятор на такие длинные строки не рассчитан. Может есть другой способ?

Поправка: как выделить все нечетные ряды

Sub nn()
Dim i As Integer, R As Range
MsgBox Me.Rows.Count
Set R = Rows(3)
For i = 3 To 101 Step 2 'Me.Rows.Count
  Set R = Union(R, Rows(i))
Next i
R.Select
End Sub

Сорри. в строке

Set R=Rows(3)

должно быть , конечно

Set R=Rows(1)

Добрый день!
В Sheet1 в колонке А- номенклатурные номера не по порядку и повторяющиеся (одиннадцатизначный код)
ВSheet2 в колонке А- также номенклатурные номера а в колонке В-наименование
Напишите,пожалуйста код на VBA чтобы можно было перенести наименования из Sheet2 в Sheet 1, присудив каждому номенклатурному номеру соответственное название
заранее благодарю

то есть:
-вместо номеров в колонке A листа Sheet1 написать наименования из листа Sheet2
-или в отдельную колонку листа Sheet1 написать соответсвующие наименования из листа Sheet2?