Loop through an Array, change values

Darth269

New Member
Joined
Oct 4, 2018
Messages
15
That sounds like you have a 2d array in which case try
Code:
   Dim Sp As Variant
   Dim i As Long
   FeedbackArray = (Range("E3:E8").Value)
   For i = LBound(FeedbackArray) To UBound(FeedbackArray)
      Sp = Split(FeedbackArray(i, [COLOR=#ff0000]1[/COLOR]))
      If Sp(0) = "1" Or Sp(0) = "10" Then FeedbackArray(i, [COLOR=#ff0000]1[/COLOR]) = Sp(0)
   Next i

You wonderful human you.

Thanks, thats got it.

with my limited understanding of the code, I'm having to create multiple instances of this for each of the "columns" that I need to scan through, but thats still saving loads of time!


Thank you
 

Some videos you may like

Excel Facts

Using Function Arguments with nested formulas
If writing INDEX in Func. Arguments, type MATCH(. Use the mouse to click inside MATCH in the formula bar. Dialog switches to MATCH.

Fluff

MrExcel MVP, Moderator
Joined
Jun 12, 2014
Messages
35,978
Office Version
365
Platform
Windows
If you need to do it on all the columns in the array you could use
Code:
   Dim FeedbackArray As Variant
   Dim Sp As Variant
   Dim i As Long, j As Long
   FeedbackArray = (Range("E3:E8").Value)
   For i = LBound(FeedbackArray) To UBound(FeedbackArray)
      For j = LBound(FeedbackArray, 2) To UBound(FeedbackArray, 2)
         Sp = Split(FeedbackArray(i, j))
         If Sp(0) = "1" Or Sp(0) = "10" Then FeedbackArray(i, j) = Sp(0)
      Next j
   Next i
 

Watch MrExcel Video

Forum statistics

Threads
1,090,200
Messages
5,413,001
Members
403,462
Latest member
TritonCoding

This Week's Hot Topics

Top