Tag: 反转

使用命令button反转/反转没有设置范围的列

我知道这个问题已经被问到，但我似乎无法使我find为我工作的东西。 我只想从列A开始的所有数据，并从第2行到第J列的任何数据结束可能是颠倒顺序（反向的数据） 我偶然发现了下面的代码，但是它冻结了，我不想做出select。 Private Sub CommandButton2_Click() Dim vTop As Variant Dim vEnd As Variant Dim iStart As Integer Dim iEnd As Integer Application.ScreenUpdating = False iStart = 1 iEnd = Selection.Columns.Count Do While iStart < iEnd vTop = Selection.Columns(iStart) vEnd = Selection.Columns(iEnd) Selection.Columns(iEnd) = vTop Selection.Columns(iStart) = vEnd iStart = iStart + 1 iEnd = […]