Excel vba从数组中获取单元格位置

Question

您好

我想遍历源范围并从源数组中拾取实际单元格位置，并在目标范围上应用条件格式化，每个单元格引用源范围中的唯一单元格。 Plase查看图片进行描述。

所以不要在＆＃34; A2＆＃34;中获得价值。 （例如＆＃34; 1＆＃34;）来自范围＆＃34; A2：C3＆＃34;。 ID＆＃39;喜欢获得＆＃34; Sheet1！A2＆＃34;的位置优异价值..B2等。

＆＃39;高级方法

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

因此，如果您真正想要做的就是在For循环中返回您当前所在单元格的地址，那么您可以写下这样的内容：

For Each cell In SourceArray
    MsgBox cell.Address
Next

显然，您希望将地址存储为变量，或者将数据存储到数组中以便稍后使用该地址。如果单元格当前通过单元格A1 循环，则返回$ 1 $。如果您正在调用单元格值，如问题中所述，则可以使用cell.value返回单元格中的实际可见值。如果这不是你想要的，请告诉我，我会尝试调整我的答案。