[已解决]如何利用宏表示公式

335805371

sheet(1)里面的A列，为sheet(2)中的D列
用公式表示是A1=sheet(2)!D1，下拉自动填充sheet(1)的A列

期望结果：希望通过点击按钮执行宏实现自动填充sheet(1)的A列

不知道怎样写宏，求帮助

最佳答案

月排行榜 / 总排行榜

youfang

2014-6-9 14:42

1. Sub 填充()
   
2. Dim i%
   
3. r = Sheets(2).Range("d65536").End(3).Row
   
4. For i = 1 To r
   
5. Sheets(1).Cells(i, 1) = Sheets(2).Cells(i, 4)
   
6. Next
   
7. End Sub
   

复制代码

跳转到最佳答案楼层

youfang

1. Sub 填充()
   
2. Dim i%
   
3. r = Sheets(2).Range("d65536").End(3).Row
   
4. For i = 1 To r
   
5. Sheets(1).Cells(i, 1) = Sheets(2).Cells(i, 4)
   
6. Next
   
7. End Sub
   

复制代码

335805371

youfang 发表于 2014-6-9 14:42

感谢你的解答，追问一下，如果不是填充sheet(1)的整个A列，而是填充A2-A1679 该如何修改

youfang

1. Sub 填充()
   
2. Dim i%
   
3. For i = 2 To 1679
   
4. Sheets(1).Cells(i, 1) = Sheets(2).Cells(i-1, 4)
   
5. Next
   
6. End Sub
   

复制代码

335805371

youfang 发表于 2014-6-9 16:39

试验过了，非常正确，万分感谢