vba-循环调用函数

Question

I need to call an homemade function (GetCoordinates) in a loop and apply it at each loop step.

I have a column with data (Starting at L2) and I need to apply my personnal function GetCoordinates to this data and write the result on the column next to it (so starting at M2)

NumRows = Range("L2", Range("L2").End(xlDown)).Rows.Count
      Range("L2").Select
      For x = 1 To NumRows
         Selection.Offset(, 1).Formula = "=GetCoordinates(L&x)"
         ActiveCell.Offset(1, 0).Select
      Next

My problem is that I don't know how to apply my function to each cell. How should it be written so that the function is called for each cell in the loop? (The GetCoordinates function works fine)

Answer 1

Try putting in all the formulas without a loop. To write te formulas in column M and use column L as the formulas argument then use,

 Range(cells(2, "M"), cells(rows.count, "L").End(xlup).offset(0, 1)).Formula = _
     "=GetCoordinates(L2)"

Your own might have been closer with,

Selection.Offset(, 1).Formula = "=GetCoordinates(L" & x & ")"

But you were mismatching Do ... While and For ... Next loops.

Answer 2

Try this

 NumRows = Range("L" & Rows.Count).End(xlUp).Row

  For x = 2 To NumRows
     Cells(x, "M").Value = GetCoordinates(Cells(x, "L"))
  Next