如何使用此VBA代码的特定列？

任何人都可以帮我解决以下问题吗？

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 ？ 以上代码在整个工作表中search需要很长时间。

当select100,000行时，它也会提供太长的select。