Замена цикла VBA.

[Alex32ultra]

Здравствуйте все! Помогите пожалуйста, как реализовать данный цикл через For Each

[Hugo121]

Можно перебрать все строки диапазона, но всё равно придётся использовать счётчик, чтоб обращаться к массивам, т.е. нет смысла в for each.

[Казанский]

Цикл вообще не нужен

  M = WorksheetFunction.Transpose(Cells(3, 3).Resize(kk).Value)
  C = WorksheetFunction.Transpose(Cells(3, 4).Resize(kk).Value)

[Alex32ultra]

Я понимаю ,что есть удобные варианты и без цикла, и с циклов for next работает хорошо, но задача реализовать именно через for each, мог бы кто нибудь хотя бы намекнуть, как это сделать?

[IgorGO]

что уж тут намекать, я напишу прямо:

  Dim cL As Range, H(), C(), i As Long, kk As Long
  kk = 7:  i = 1
  ReDim H(1 To kk):  ReDim C(1 To kk)
  For Each cL In Worksheets(1).Cells(3, 3).Resize(kk, 1).Cells
    H(i) = cL.Value: C(i) = cL.Offset(0, 1).Value: i = i + 1
  Next