2011-02-24 11:24:43 +0000 2011-02-24 11:24:43 +0000
148
148

如何在excel中用拖放或上移或下移的方式轻松地重新排序?

我必须在Excel中做一些手动重新排序或行和剪切/粘贴太难用了。我正在寻找一个能让我使用拖放或添加一些按钮来上移/下移/上移/下移的东西。

答案 (10)

216
216
216
2011-07-24 19:59:02 +0000
  1. 1. 选择行/列。2. 将鼠标光标移动到行/列的边界,这样你就可以看到四向箭头光标(或Mac上的手标)。按键盘上的Shift键,然后点击并拖动该行/列。

Shift键_移动该行/列,而不是覆盖目标行/列。

14
14
14
2011-02-28 07:38:02 +0000

这仍然是一个剪切/粘贴的方法,但这是我能想到的最简单的方法。

四点击解决方案: (例如:将第8行移到第5行以上)

  1. 右键点击行号(如:第8行),点击(或T)
  2. 右键点击行号(如第5行),点击插入切割单元格 (或E)

注意:这也适用于移动多行。

3
3
3
2014-01-23 11:04:06 +0000

将以下宏添加到您的个人宏工作簿中,并为其指定快捷键。该行为模仿了Sublime Text的 “向上换行和向下换行"。

2
2
2
2011-02-24 11:44:22 +0000

我从[这个网站]找到了一个更直接的答案:

Microsoft Word有一个Excel所缺乏的功能。Jon的方法是将数据移动到Word中,使用Word命令,然后将数据粘贴到Excel中。按照以下步骤操作。

  1. 将相关的大块的行和列复制到你的speadsheet中。最好注意范围的大小,例如:118行×5列
  2. 将数据粘贴到 Microsoft Word 文档中,它将自动变成一个表格,并保留所有的格式。 3.在 Word 中,使用鲜为人知的 SHIFT-ALT-UP-ARROW 和 SHIFT-ALT-DOWN-ARROW 来快速地将行(或选定的大块行)向上和向下滑动。选择一个或多个行。您可以选择整个行或只选择部分行,如图所示。当你按照你的喜好对行进行排序后,将它们粘贴回Excel中,确保你覆盖了你所复制的大小完全相同的大块。
2
2
2
2012-07-12 13:12:26 +0000

在Mac中,拖动时使用Command + Shift。我想,在windows下应该是Win+Shift。

1
1
1
2015-02-21 15:54:17 +0000

尝试:

Shift +空格键或鼠标点击行号选择行号

Ctrl + X 剪切

鼠标点击你想要的地方 Ctrl + V 粘贴

1
1
1
2019-11-18 10:10:12 +0000

对于像我这样只想使用键盘的势利眼的人来说:

  1. 选择你要移动的单元格(不一定要整行)
  2. 移动到你想移动内容的单元格下面的单元格
  3. 3. 按ctrl-+
1
1
1
2014-06-25 15:11:49 +0000

对@wilson的回答稍作改进:

右键点击行号(如第8行),按 “t "右键点击行号(如第5行),按 "e”

混合使用鼠标和键盘对我来说确实加快了速度。

1
1
1
2015-05-08 17:03:37 +0000

这里有一个同样适用于列的子,它结合了所有四个方向的功能:

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
-1
-1
-1
2013-08-31 10:37:42 +0000

这是我找到的最简单的一个。不能真正的拖放:

例如要在第2行之前移动第3行:

–右键点击第3行(在左边的3号上),选择剪切* –右键点击第2行(在2号上),选择插入剪切单元格