148
148
我从[这个网站]找到了一个更直接的答案:
Microsoft Word有一个Excel所缺乏的功能。Jon的方法是将数据移动到Word中,使用Word命令,然后将数据粘贴到Excel中。按照以下步骤操作。
- 将相关的大块的行和列复制到你的speadsheet中。最好注意范围的大小,例如:118行×5列
- 将数据粘贴到 Microsoft Word 文档中,它将自动变成一个表格,并保留所有的格式。 3.在 Word 中,使用鲜为人知的 SHIFT-ALT-UP-ARROW 和 SHIFT-ALT-DOWN-ARROW 来快速地将行(或选定的大块行)向上和向下滑动。选择一个或多个行。您可以选择整个行或只选择部分行,如图所示。当你按照你的喜好对行进行排序后,将它们粘贴回Excel中,确保你覆盖了你所复制的大小完全相同的大块。
对@wilson的回答稍作改进:
右键点击行号(如第8行),按 “t "右键点击行号(如第5行),按 "e”
混合使用鼠标和键盘对我来说确实加快了速度。
这里有一个同样适用于列的子,它结合了所有四个方向的功能:
Sub MoveRowsOrColumns(direction As String)
Dim rOriginalSelection As Range
Select Case direction
Case "up", "down"
Set rOriginalSelection = Selection.EntireRow
Case "left", "right"
Set rOriginalSelection = Selection.EntireColumn
Case Else
Debug.Assert False
End Select
With rOriginalSelection
.Select
.Cut
Select Case direction
Case "up"
.Offset(-1, 0).Select
Case "down"
.Offset(rOriginalSelection.Rows.Count + 1, 0).Select
Case "left"
.Offset(0, -1).Select
Case "right"
.Offset(0, rOriginalSelection.Columns.Count + 1).Select
End Select
End With
Selection.Insert
rOriginalSelection.Select
End Sub