• gas
  • Восстановленный участник
  • На форуме с 24 ноября 2004г.
  • Сообщений: 1
  • Спасибо: 0

Тема: Excel & VBA разбор выделенных ячеек

Мне необходимо из выделенного фрагмента составить матрицу названий ячеек, т.е. выделен диапазон А1:В3, в результате: А1, А2, А3, В1, В2, В3; для дольнейшей работы с отдельной из этих ячеек
Заранее спасибо

  • На форуме с 24 ноября 2004г.
  • Сообщений: 1
  • Спасибо: 0

Re: Excel & VBA разбор выделенных ячеек

> gas

Option Base 1
Sub cellsard()
    Set reg = Selection
    Dim Cll() As String
    ReDim Cll(reg.Cells.Count)
    i = 1
    For Each cc In reg.Cells
        Cll(i) = cc.Address()
        Debug.Print Cll(i) ;<=отключить после проверки
        i = i + 1
    Next cc
End Sub