Excel VBA从数组获取单元格位置

Question

Hi

I want to loop through a source range and pickup the actual cell position from the source array, and apply conditional formating on a destination range, with each cell referencing the unique cell in source range. Plase see the picture for description.

So instead of getting the value in "A2" (for instance "1") from range "A2:C3". Id' like to get the positional excel value of "Sheet1!A2" ..B2 etc.

' High level approach

Sub setcondformat()

Dim sourcearr ??, Dim destarr ??, Dim Strpos as String

Dim Strvalue as String ' not necessary, but interesting for educational purposes

For each cell in Source Array do

 select next cell in destination Array    ' eg Sheet2!"J2", "K2" etc ..

  Set conditional format value = Strpos     ' in cond format dialog eg "A2", "B2" etc..

   Next cell sourcearr

end loop


End sub

Answer 1

So if you all you are really trying to do is return the address of the cell you are currently on in your For Loop, you can just write something like:

For Each cell In SourceArray
    MsgBox cell.Address
Next

Obviously you would want to store the address as a variable, or into an array to use the address later. This will return $A$1 if the cell is currently looping through cell A1 . If you were calling the cells value, as mentioned in your questions, you would use cell.value to return the actual visible value in the cell. If this is not what you are after, please let me know and I will attempt to adjust my answer.