[已解决]如何将公式通过VBA写入相应位置

ynslyjb

请教高手如何将公式通过VBA写入相应位置

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-3-21 16:41

1. Sub teset()
   
2.     With Worksheets("表2")
   
3.         .Range("a1") = "'" & Worksheets("表1").Range("a1").Formula
   
4.         .Range("b1") = "'" & Worksheets("表1").Range("b1").Formula
   
5.     End With
   
6. End Sub
   

复制代码

跳转到最佳答案楼层

hwc2ycy

1. Sub teset()
   
2.     With Worksheets("表2")
   
3.         .Range("a1") = "'" & Worksheets("表1").Range("a1").Formula
   
4.         .Range("b1") = "'" & Worksheets("表1").Range("b1").Formula
   
5.     End With
   
6. End Sub
   

复制代码

hwc2ycy

1. Sub teset()
   
2.     Dim sh As Worksheet
   
3.     Set sh = Worksheets("表1")
   
4.     With Worksheets("表2")
   
5.         .Range("a1") = "'" & sh.Range("a1").Formula
   
6.         .Range("b1") = "'" & sh.Range("b1").Formula
   
7.     End With
   
8. End Sub

复制代码

798287748

谢谢！学习啦！

ynslyjb

hwc2ycy 发表于 2013-3-21 16:42

可以实现的，高手，这个是绝对格式额，如果能写成相对的格式就太好了