[已解决]跨表取值问题

0102034

求助一个关于跨表取值问题 ，想法是：选中一个区域，循环单元格，在表明为单元格名的工作表中，将指定位置的单元格的值，填到指定位置。不知道是哪里不对，请大家帮忙看一下。

1. Sub wjj()
   
2. 
   
3.     For Each i In Range(Range("B2"), Range("B2").End(xlDown))
   
4.    
   
5.         i.Offset(0, 1).Value = Sheets(i).Range("I65536").End(xlUp).Value
   
6. 
   
7.     Next
   
8. 
   
9. End Sub

复制代码

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2021-3-9 20:39

有时候不能省略单元格的value属性，比如赋值给字典，以及这里。
Sheets(i) ->Sheets(i.Value)

跳转到最佳答案楼层

大灰狼1976

有时候不能省略单元格的value属性，比如赋值给字典，以及这里。
Sheets(i) ->Sheets(i.Value)

高

For Each i In Range("B2:B" &  Range("B2").End(xlDown).row)

0102034

高 发表于 2021-3-9 22:58
For Each i In Range("B2:B" &  Range("B2").End(xlDown).row)

谢谢

0102034

大灰狼1976 发表于 2021-3-9 20:39
有时候不能省略单元格的value属性，比如赋值给字典，以及这里。
Sheets(i) ->Sheets(i.Value)

谢谢，赋值给字典这块我也经常忘记了。