Excel – 如何转换/反转列序列从右到左
我有一个大约50列的Excel表。 但目前的数据是以相反的顺序出现的。
现在,我怎么能颠倒列序列,使右侧的最后一列实际上成为左侧的第一列,依此类推。 我基本上需要扭转列的顺序。
我已经find了一种方法来显示所需的格式的数据通过使用此方法 – 文件,选项,高级,勾号:显示工作表从右到左应用
但是这只是改变了DISPLAY而不改变了实际数据,所以当我复制粘贴这个表格中的数据时,它只会再次以原始/错误的顺序显示数据。
请build议如何做到这一点。
非常感谢。
这个小的macros将获取Sheet1上的列并将其按照“翻转”顺序复制到Sheet2 :
Sub ColumnFlipper() Dim s1 As Worksheet, s2 As Worksheet Set s1 = Sheets("Sheet1") Set s2 = Sheets("Sheet2") Dim M As Long, N As Long, i As Long N = 1 With s1 M = .Cells(1, Columns.Count).End(xlToLeft).Column For i = M To 1 Step -1 .Cells(1, i).EntireColumn.Copy s2.Cells(1, N) N = N + 1 Next i End With End Sub
修改图纸名称以满足您的需求。
把它放在另一张纸上,比如Sheet2 。
=INDIRECT("Sheet1!R" & ROW()&"C" & X-COLUMN()+1;FALSE)
! Sheet1是原始表单。
用总数列replaceX. 填写右边的X栏,然后填写。