Left Trimming VBA

[grifdoogindoggy]

I'm struggling to find an easy way to simply trim a range of cells in a column (hard coded into VBA) and then left trimming by a number of my choosing (also hardcoded).

I'm looking for something along the lines of this:
Range("A1:A10").FormulaR1C1 = "=LEFT(TRIM(R[]C[],9))"
But it's not working.

Thank you for any help!

 

[Joe4]

Welcome to the Board!

Is that what you are trying to do?

Sub test()
    Dim cell As Range
    For Each cell In Range("A1:A10")
        cell = Left(Trim(cell), 9)
    Next cell
End Sub

If not, please just explain in plain English exactly what it is you are trying to do.
It might be helpful if you post some data examples, and what you want them to look like after the fact.

 

[Fluff]

Maybe

Sub grifdoog()
   With Range("A1:A10")
      .Value = Evaluate("if({1},left(trim(" & .Address & "),9))")
   End With
End Sub

 

[grifdoogindoggy]

Thank you! Do you know a simple way to print each cell on top of another for a specified number of times?

ie for a constant 2:
"A1"
"A1"
"A2"
"A2"
"A3"
"A3"
...

and so on

 

[Fluff]

As this is a totally different question, you will need to start a new thread.
Thanks