IF cells contains text then replace by the lat cell in its corresponding collumn

[JODomingos]

Hi Fellows!

I'm stuck in this script, I can not solve.
The point is: I need to check in many columns if there is the string "./.", in case of having then replace it by the last row in its column (Yellow), which contains the average. I can do it one by one but I need to perform this several times (4723times). I could not develop a loop for that. After finished the replacement for the class A, i have to move to class B e perform the same script.

Could you help me?

Below follows my script
Sub replace()
Dim C As Range

Dim grupo As Range

Set grupo = Range(ActiveCell, ActiveCell.End(xlDown))

Application.ScreenUpdating = False

For Each C In grupo


If C = "./." Then C = ActiveCell.End(xlDown).Value
Next C

ActiveCell.Offset(0, 1).Select


Application.ScreenUpdating = True

End Sub

Really thanks

 

[Rick Rothstein]

Does this macro do what you want...

Sub ReplaceDotSlashDotWithAverage()
  Dim Cell As Range
  For Each Cell In Range("C4", Cells(Rows.Count, "J").End(xlUp)).SpecialCells(xlConstants)
    Cell.Replace "./.", Cell.End(xlDown).Value, xlWhole, , , , False, False
  Next
End Sub

 

[Fluff]

Hi & welcome to MrExcel.
How about

Sub JODomingos()
   Dim Cl As Range, Rng As Range
   Dim Ar As Areas
   
   For Each Rng In Range("A:A").SpecialCells(xlConstants).Areas
      For Each Cl In Rng.CurrentRegion.Columns
         Cl.Replace "./.", Cells(Rng.Offset(Rng.Count - 1).Resize(1).Row, Cl.Column)
      Next Cl
   Next Rng
End Sub

 

[JODomingos]

This is Just Fabulous!! It Worked Perfectly.
Thank you Rick A lot.

 

[Fluff]

Glad we could help & thanks for the feedback.