VB Marco Reverse Variant and paste into other sheet

  • Thread starter Thread starter Chuo Chung Seng
  • Start date Start date
C

Chuo Chung Seng

Hi All,

I have some error occur during reversing an Variant.
The Avalue(i) = StrReverse(Avalue(i)) having error mention that
"Subscript out of range"
Anyone can advise an solution to me pls.....

Dim Avalue() As Variant

Sheets("Sheet1").Select
Avalue = Range("B3:B500").Value


For i = LBound(Avalue) To UBound(Avalue)
Avalue(i) = StrReverse(Avalue(i))
Next i

Sheets("Sheet2").Select
Range("B3:B500") = Avalue


End Sub
 
By default, the array is two dimensional when you set a variant to a range (since ranges can be 2D)
For i = LBound(Avalue, 1) To UBound(Avalue, 1)
Avalue(i, 1) = StrReverse(Avalue(i, 1))
Next i

If your values were in a row, you would iterate on the second dimension (the columns).

Bernie
 
Back
Top