excel 2010执行代码行高修改速度很慢

cmo9020

请问各位导师们
小弟有一个代码需要修改
1.解除筛选
2.删除j列图片
3.将第3行以下一直到A列没有数值的区域，高度修改成16.5

现在遇到一个困难，在excel 2010执行代码时遇到2万多笔数据时候
将A列第3行以下一直到无数值的区，行高修改成16.5时执行速度会很慢，

要怎么写才能让处理行高这部份执行速度在快一些
请导师们写一个单独处理行高部份的代码参考一下，谢谢


Test.rar (952.46 KB, 下载次数: 12)

2024-8-3 15:19 上传

点击文件名下载附件

Sub ModifyWorksheet()
    Dim ws As Worksheet
    Dim lastRow As Long

    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Set ws = ThisWorkbook.Sheets("Sheet1")

    On Error Resume Next
    ws.ShowAllData
    On Error GoTo 0

    Dim Sh As shape
    For Each Sh In ws.Shapes
        If Sh.Type = msoPicture Then
            If Not Intersect(Sh.TopLeftCell, ws.Columns("J")) Is Nothing Or _
               Not Intersect(Sh.BottomRightCell, ws.Columns("J")) Is Nothing Then
                Sh.Delete
            End If
        End If
    Next Sh

    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    If lastRow > 3 Then
        ws.Rows("3:" & lastRow).RowHeight = 16.5
    End If
End Sub

半百

附件中有1万行，原来的代码运行起来极快。

cmo9020

半百 发表于 2024-8-3 16:15
附件中有1万行，原来的代码运行起来极快。

在家里运行正常运行起来极快
但是公司电脑CPU比家里还好,跑起来都会停顿13秒

测试过把行高代码拿掉,执行速度才会变极快
但是一上行高代码执行速度就慢

不知道为什么到底哪里不对...

3190496160

仅就上传的附件，运行代码，速度是非常快的嘛，是不是实际的文件，工作表内有大量公式，条件格式等等，

小刀369

附件中有一千多行数据, 我作如下操作, 全选单元格,在左边行格式进行双击, 进行自动调整行高,结果速度非常的慢,等了三四分钟才执行完毕. 请老师帮我看看究竟问题出在哪里?

taller

选中尽量少的单元格再进行自适应行高操作：

选中任意有文字单元格，Ctrl+A选中数据区域，Ctrl+Shift+右箭头，选中整行，然后双击自动调整行高

小刀369

是这样的, 我刚才直接按上楼的要求操作,1秒就完成了. 我接下去采用冻接首行, 再按上楼的要求操作,又很慢了. 这是什么道理?
取消冻接首行后, 按上面操作,又很快完成了,这是什么原因.

山海风云轩

那先取消冻结首行，调整好后，再设置首行

lizhipei78

运行正常，不知道你那是什么原因