如何将此Vba代码用于特定列？

Question

有人帮我解决以下问题吗？

Sub UpdatePartial()
    With ActiveSheet.UsedRange
        .Replace "A1", "System", xlPart
        .Replace "A2", "System", xlPart
        .Replace "A3", "System", xlPart
        .Replace "B1", "ACC", xlPart
        .Replace "B2", "ACC", xlPart
    End With
End Sub

如何将其应用于特定列，例如列A或B或C？上面的代码搜索整个工作表，这需要太长时间。

当选择100,000行时，它也会给选择太长。