[已解决]如何将筛选后单元格公式批量转化为数值

水中绿萝

林木水 发表于 2022-1-21 15:13

您好，还有一个问题，我的工作簿里的有十几个工作表，每个工作表里都有二三千行。在一个工作表里运行这个代码，则不停显示计算进度，不停重复1%-100%，循环往复，一个工作费替换耗时半个小时，请教，有没改进代码的解决办法？

林木水

水中绿萝 发表于 2022-1-26 12:15
您好，还有一个问题，我的工作簿里的有十几个工作表，每个工作表里都有二三千行。在一个工作表里运行这个 ...

你这种是属于工作表了的公式太多了，所以每次任一个工作表更新，其他工作表也会更新。试一下可以再代码前加更新工作表，后面加关闭

1. Sub text()
   
2. Application.ScreenUpdating = False
   
3. 
   
4. '中间代码内容
   
5. 
   
6. Application.ScreenUpdating = True
   
7. End Sub
   

复制代码

水中绿萝

林木水 发表于 2022-2-9 14:16
你这种是属于工作表了的公式太多了，所以每次任一个工作表更新，其他工作表也会更新。试一下可以再代码前 ...

，我重新试了下，出现这个提示：编译错误，在END sub ,END fumction或END属性后面只能出现注释。以下为代码内容，可以帮我看看是哪里要修改吗，谢谢。

Sub text()
Application.ScreenUpdating = False
Sub demo()
Dim i As Integer
For i = 5 To 2600
    If InStr(Cells(i, "c").Value, "合计") > 0 Or InStr(Cells(i, "c").Value, "小计") > 0 Or InStr(Cells(i, "c").Value, "总计") > 0 Then
    Else
        Cells(i, "h") = Cells(i, "h").Value
    End If
Next i
End Sub
Application.ScreenUpdating = True
End Sub

abxboy

水中绿萝 发表于 2022-2-12 17:17
，我重新试了下，出现这个提示：编译错误，在END sub ,END fumction或END属性后面只能出现注释。以下为代 ...

'这样改试一下
Sub text()
Application.ScreenUpdating = False
Dim i As Integer
For i = 5 To 2600
    If InStr(Cells(i, "c").Value, "合计") > 0 Or InStr(Cells(i, "c").Value, "小计") > 0 Or InStr(Cells(i, "c").Value, "总计") > 0 Then
    Else
        Cells(i, "h") = Cells(i, "h").Value
    End If
Next i
Application.ScreenUpdating = True
End Sub

水中绿萝

abxboy 发表于 2022-2-15 09:00
'这样改试一下
Sub text()
Application.ScreenUpdating = False

您好，程序可以运行，但是，运行时间也是几个小时，不知为什么？

abxboy

水中绿萝 发表于 2022-2-21 11:17
您好，程序可以运行，但是，运行时间也是几个小时，不知为什么？

一直可以运行的，你说的意思没看懂哦！