Vba Excel - как выделить все нечетные строки?

  • Автор темы Sulfur
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

Sulfur

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

Guest_tanya_*

#3
Код:
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
 
G

Guest

#4
Сорри. в строке
Код:
Set R=Rows(3)
должно быть , конечно
Код:
Set R=Rows(1)
 
D

Droma

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

Tanya

#6
то есть:
-вместо номеров в колонке A листа Sheet1 написать наименования из листа Sheet2
-или в отдельную колонку листа Sheet1 написать соответсвующие наименования из листа Sheet2?
 
Статус
Закрыто для дальнейших ответов.