[已解决]integer转换range

10210578

sheet1在cells(1,1) = a(认意数字)
要复制到sheet2在cells(2,1) 但储存格显示为A1

最佳答案

月排行榜 / 总排行榜

xdragon

2014-8-28 17:41

1. Sub t()
   
2.   Dim a
   
3.   Sheets("sheet1").Cells(1, 1) = a
   
4.   Sheets("sheet2").Cells(2, 1) = Sheets("sheet1").Cells(1, 1).Address(0, 0)
   
5. End Sub
   

复制代码

不是特别清楚你 的意思，猜的。。。

跳转到最佳答案楼层

xdragon

1. Sub t()
   
2.   Dim a
   
3.   Sheets("sheet1").Cells(1, 1) = a
   
4.   Sheets("sheet2").Cells(2, 1) = Sheets("sheet1").Cells(1, 1).Address(0, 0)
   
5. End Sub
   

复制代码

不是特别清楚你 的意思，猜的。。。

10210578

謝謝 就是要這樣轉換 感謝
因為最近才學會遇到很多基礎問題謝謝

su45

10210578 发表于 2014-8-28 18:09
謝謝 就是要這樣轉換 感謝
因為最近才學會遇到很多基礎問題謝謝

解决问题了，就给2楼个最佳！