在一定范围内更改值以避免循环，以提高速度

Question

我有下面的代码，运行非常缓慢。 关于如何使速度更快的任何想法？

在上一个Sub中，有一些背景知识，我选择了一个范围，然后复制并粘贴了它。 现在，我需要根据代码更改值。 是否可以采用此范围并对其进行修改而不先粘贴？

Sub ChangeArea()
    Dim Book As Workbook
    Dim Sheet As Worksheet
    Dim AreaRange As Range
    Dim LastRow
    Dim c As Range
    Set Book = Workbooks("Testing")
    Set Sheet = Book.Worksheets("Data")
    Sheet.Activate
    LastRow = Sheet.Cells(Rows.Count, "AG").End(xlUp).Row
    Set AreaRange = Sheet.Range("AG5:AG" & LastRow)
    For Each c In AreaRange.Cells
        If c.Value = "10" Then
            c.Value = "Mark"
        ElseIf c.Value = "will" Then
            c.Value = "William"
        ElseIf c.Value = "Uncle" Then
            c.Value = "Bill"
        ElseIf c.Value = "Roomate" Then
            c.Value = "Robert"
        Else: End If
    Next
End Sub

Answer 1

一种选择是在您的范围上使用Replace方法。 请参阅下面的内容，并尝试放入您的工作表中。

Sub ChangeThem()
    Dim rng As Range
    Dim lRow As Long

    lRow = Sheet1.Cells(Rows.Count, "AG").End(xlUp).Row
    Set rng = Sheet1.Range("AG5:AG" & lRow)

    rng.Replace what:=1, replacement:="One"
    rng.Replace what:=2, replacement:="Two"
    rng.Replace what:=3, replacement:="Three"
End Sub

Answer 2

尝试添加

Application.ScreenUpdating = false

到顶部

Application.ScreenUpdating = True

至底部

这样可以防止屏幕在每次更改时进行更新。