代码优化写法

sj15627581616

Private Sub Workbook_Open()
With Sheet1
.Range("c3") = Sheet3.Range("t5")
.Range("d3") = Sheet4.Range("t5")
.Range("e3") = Sheet5.Range("t5")
End With
End Sub

由于在公司文件加密暂时没法上附件，如代码，C3:AG8都有一一对应的内容，以行3为例，对应单元格是固定的，在Open事件下怎么去优化，光sheet3到sheet33就有得写的了，且要写6行对应内容，虽然可以慢慢写，但能懒则懒，这也是为啥学VBA，麻烦各位老师指点了

liulang0808

楼主这个结合表名跟表的顺序对应看看吧

zpy2

很好奇，啥公司，都是搞保密局的？

sj15627581616

zpy2 发表于 2019-10-19 20:11
很好奇，啥公司，都是搞保密局的？

很常规的加密软件而已，通过某些格式文件， 想盗什么资料还是照样盗取，只不过像EXCEL这样的表格经过编辑后外网打开会变成乱码

zpy2

sj15627581616 发表于 2019-10-19 20:23
很常规的加密软件而已，通过某些格式文件， 想盗什么资料还是照样盗取，只不过像EXCEL这样的表格经过编辑 ...

加密软件我知道的，我就是奇怪为啥有不少公司喜欢用这种软件来加密，现在都是云端了。

sj15627581616

zpy2 发表于 2019-10-19 20:26
加密软件我知道的，我就是奇怪为啥有不少公司喜欢用这种软件来加密，现在都是云端了。

成本问题吧，这种一般贵不到哪去，毕竟，我一个VBA都不怎么懂的人，都知道怎么绕开加密软件盗取资料

kevinchengcw

参考

sj15627581616

kevinchengcw 发表于 2019-10-19 21:30
参考

这是不是使用的字典？修改下就达到了想要的效果
Sub 测试()
For i = 3 To 33
Sheet1.Cells(3, i) = Sheet & i.Range("t5")
Sheet1.Cells(4, i) = Sheet & i.Range("t9")
Sheet1.Cells(5, i) = Sheet & i.Range("t13")
Sheet1.Cells(6, i) = Sheet & i.Range("t17")
Sheet1.Cells(7, i) = Sheet & i.Range("t21")
Sheet1.Cells(8, i) = Sheet & i.Range("t25")

Next
End Sub

能帮我看下是不是等号后面写法有问题，或者根本不能这么写

sj15627581616

liulang0808 发表于 2019-10-19 20:07
楼主这个结合表名跟表的顺序对应看看吧

Sub 测试()
For i = 3 To 33
Sheet1.Cells(3, i) = Sheet & i.Range("t5")
Sheet1.Cells(4, i) = Sheet & i.Range("t9")
Sheet1.Cells(5, i) = Sheet & i.Range("t13")
Sheet1.Cells(6, i) = Sheet & i.Range("t17")
Sheet1.Cells(7, i) = Sheet & i.Range("t21")
Sheet1.Cells(8, i) = Sheet & i.Range("t25")

Next
End Sub
自己想的思路，不知道走不走得通，反正就是提示要求对象

liulang0808

楼主上传附件，结合附件描述下吧