sách gpt4 ai đã đi

Tối ưu hóa Excel

In lại 作者:行者123 更新时间:2023-12-03 00:00:36 30 4
mua khóa gpt4 Nike

情况如下:在我的 Excel 工作表中,有一列包含 1-name 形式的条目。考虑到数字也可以是两位数,我想删除这些数字。这本身不是问题,我让它工作了,只是性能太糟糕了。现在我的程序每个单元格输入大约需要半秒。

我的问题:如何提高性能?这是代码:

Sub remove_numbers()
Dim YDim As Long
Dim i As Integer, l As Integer
Dim val As String
Dim s As String
YDim = Cells(Rows.Count, 5).End(xlUp).Row
For i = 8 To YDim
val = Cells(i, 5)
l = Len(val)
s = Mid(val, 2, 1)
If s = "-" Then
val = Right(val, l - 2)
Else
val = Right(val, l - 3)
End If
Cells(i, 5).Value = val
Next i
End Sub

1 Câu trả lời

Bạn có thể sử dụng Split() 而不是使用 3 个不同的函数:Len()、Mid()、Right()在这种情况下,函数的效率会更高。

尝试下面的代码

Sub remove_numbers()
Application.ScreenUpdating = False
Dim i As Long
For i = 8 To Cells(Rows.Count, 5).End(xlUp).Row
Cells(i, 5) = Split(Cells(i, 5), "-")(1)
Next i
Application.ScreenUpdating = True
End Sub

关于Excel 优化,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/18843331/

30 4 0
Bài viết được đề xuất: angularjs - 为什么在 Angular 中使用 ng-src 时必须使用表达式?
Bài viết được đề xuất: excel - 在 Excel 中查找组合并计算它们
Bài viết được đề xuất: recursion - OCaml 中的内存和引用列表
Bài viết được đề xuất: excel - 自动文本大写 Excel VBA
行者123
Hồ sơ cá nhân

Tôi là một lập trình viên xuất sắc, rất giỏi!

Nhận phiếu giảm giá Didi Taxi miễn phí
Mã giảm giá Didi Taxi
Giấy chứng nhận ICP Bắc Kinh số 000000
Hợp tác quảng cáo: 1813099741@qq.com 6ren.com