对列进行排序但保持行完整- VBA

Question

我试图按升序排序列，但保持所有行完整。不幸的是，我的代码没有做到这一点。如有任何建议/帮助，我将不胜感激。

Sub Ledger()
Dim a As Integer
Dim x As Integer
Dim y As Integer
Dim z As Integer
Application.ScreenUpdating = False

a = 0
x = 1
y = 3
z = 2

Sheets(x).Select
Range("A1").EntireColumn.Insert
Range("B:B").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes
Range("A2").Select

Thanks in Advance

Answer 1

我明白是怎么回事了。需要将范围设置为整个工作表，以便它覆盖所有列。愚蠢的错误。