With能否简化多个对象？

靓仔鹏

请问各位高手，当连续多行代码且其中每行代码都调用多个对象的属性进行运算和赋值时，特别是两三个WorkBook文件对象，With能否简化多个对象？或者应该人为简化最常用还是最耗时的那个对象？

taller

一个With语句不能同时指定多个对象，如果需要引用多个对象，可以使用多个对象变量，粗略讲减少引用对象代码中的【.】数量将提高代码效率，具体优化的话，需要楼主提供代码

沈默00

多套用一个with

靓仔鹏

taller 发表于 2024-4-28 06:20
一个With语句不能同时指定多个对象，如果需要引用多个对象，可以使用多个对象变量，粗略讲减少引用对象代码 ...

请问With语句是否会对引用的对象进行优化？
例如运行时将其读入Cache中加快读写速度？
同时用到3个工作表对象，With应该怎么写才够优化？
写入操作的工作表优先用With？谢谢。

1. Dim i As Long
   
2. Dim tws As WorkSheet, sws As WorkSheet, dws As WorkSheet
   
3. For i = 1 To tws.Rows.Count
   
4.     tws.Cells(i,1)=dws.Cells(i,1)-sws.Cells(i,1)
   
5.     If tws.Cells(i,1) >=0 Then
   
6.         tws.Cells(i,2)=dwsCells(i,2)
   
7.     Else
   
8.         tws.Cells(i,2)=sws.Cells(i,2)
   
9.     End If
   
10. Next i

复制代码

taller

你的代码可以从如下两个方面优化
1. tws.Rows.Count ：这个将循环处理工作表的所有行，通常工作表中的数据并没有那么多，使用Find或者End等方法获取有效数据区域
2. 将数据读取到数组中，在内容中处理完毕之后，一次性回写到工作表中，这是最高效的方法

靓仔鹏

taller 发表于 2024-5-2 11:26
你的代码可以从如下两个方面优化
1. tws.Rows.Count ：这个将循环处理工作表的所有行，通常工作表中的数据 ...

　　上面我粘贴的是简化后的代码。
　　实际代码是行扫描从1至.End(xlUp).Row结束的，而且年轻人的第一个VBA程序就是首先把Range读取到二维数组中再处理的，最后才才把数组内容逐行分几段写回Range，因为其中有几列的内容是公式，两个WorkSheet之间Range或Cells赋值.Formula并不会自动调整相对引用的行列号，只好单独处理公式。
　　但我发现用数组也不快，而且我也需要复制单元格格式，后来就改为直接处理Range和Cells了。
　　请问什么命令可以快速复制粘贴多个单元格的格式和内容？赋值公式或复制粘贴单元格如何自适应调整相对引用的行列号？