如何在Excel中以相反的顺序复制和粘贴行或列?
有时,您可能需要按垂直或水平相反的顺序复制和粘贴列或行的列表,如下图所示。 您如何在Excel中快速轻松地处理这项工作?
使用公式以相反的顺序复制和粘贴列或行的列表
使用VBA代码以相反的顺序复制和粘贴一系列列或行
具有令人敬畏的功能,可按相反的顺序复制和粘贴一系列列或行
使用公式以相反的顺序复制和粘贴列或行的列表
垂直以相反的顺序复制和粘贴列列表
如果要反转列单元格列表,则可以应用以下公式:
输入以下公式或将其复制到要反转列顺序的空白单元格中:
=OFFSET($A$15,-(ROW(A1)-1),0)
备注:在以上公式中, A1 是列中的第一个单元格,并且 A15是列中的最后一个单元格。
然后,将填充手柄向下拖动到单元格,以相反的顺序提取单元格值,如下图所示:
水平地以相反的顺序复制和粘贴行列表
要以相反的顺序复制和粘贴行列表,请使用以下公式:
输入此公式或将其复制到空白单元格中:
=OFFSET($A$1,,COUNTA(1:1)-COLUMN(A1),)
备注:在以上公式中, A1 是该行中的第一个单元格,并且 1:1 是您的数据所在的行号。 如果数据在第10行,则应将其更改为10:10。
然后,将填充手柄向右拖动到要应用此公式的单元格上,直到提取了所有值,然后将所有值水平反转,请参见屏幕截图:
使用VBA代码以相反的顺序复制和粘贴一系列列或行
如果您需要以相反的顺序复制和粘贴一系列列或行,在这里,我将介绍一些VBA代码以快速轻松地解决它。 请执行以下步骤:
垂直以相反的顺序复制和粘贴列列表
1。 首先,您应该将数据复制并粘贴到新位置,然后按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。
2。 点击 插页 > 模块,然后将以下代码粘贴到 模块 窗口。
VBA代码:垂直以相反顺序复制和粘贴一系列单元格
Sub Flipvertically()
updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For j = 1 To UBound(Arr, 2)
k = UBound(Arr, 1)
For i = 1 To UBound(Arr, 1) / 2
xTemp = Arr(i, j)
Arr(i, j) = Arr(k, j)
Arr(k, j) = xTemp
k = k - 1
Next
Next
WorkRng.Formula = Arr
End Sub
3。 然后按 F5 键以运行此代码,并弹出一个提示框,提醒您选择要垂直反转的数据范围,请参见屏幕截图:
4。 然后,单击 OK 按钮,并且数据范围已垂直反转,如下图所示:
横向复制和粘贴一系列单元格
要按水平顺序反转数据范围,请应用以下VBA代码:
VBA代码:以相反的顺序水平复制和粘贴一系列单元格
Sub Fliphorizontally()
updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For i = 1 To UBound(Arr, 1)
k = UBound(Arr, 2)
For j = 1 To UBound(Arr, 2) / 2
xTemp = Arr(i, j)
Arr(i, j) = Arr(i, k)
Arr(i, k) = xTemp
k = k - 1
Next
Next
WorkRng.Formula = Arr
End Sub
运行此代码后,您将根据需要获得以下屏幕截图:
具有令人敬畏的功能,可按相反的顺序复制和粘贴一系列列或行
如果您不熟悉上述公式和VBA代码,在这里,我将推荐一个简单的工具-Kutools for Excel,其 翻转垂直范围 和 翻转水平范围 功能,只需单击一下即可在垂直和水平方向上反转单元格的范围。
提示:申请这个 翻转垂直范围 和 翻转水平范围 功能,首先,您应该下载 Kutools for Excel,然后快速轻松地应用该功能。
安装后 Kutools for Excel,请这样做:
横向复制和粘贴一系列单元格
1。 选择单元格的范围,然后单击 库工具 > 范围 > 翻转垂直范围 > 全部(仅翻转值),请参见屏幕截图:
2。 然后,单元格值的范围立即被垂直反转,请参见屏幕截图:
横向复制和粘贴一系列单元格
1。 选择单元格的范围,然后单击 库工具 > 范围 > 翻转水平范围 > 全部(仅翻转值),请参见屏幕截图:
2。 然后,所选内容中的所有单元格值都立即立即水平反转,请参见屏幕截图:
点击下载Kutools for Excel并立即免费试用!
更多相关的复制和粘贴文章:
将合并的单元格复制并粘贴到Excel中的单个单元格中通常,当您复制合并的单元格并将其粘贴到其他单元格中时,将直接粘贴合并的单元格。 但是,您希望将这些合并的单元格粘贴到单个单元格,如下面的屏幕快照所示,以便您可以根据需要处理数据。 在本文中,我将讨论如何将合并的单元格复制并粘贴到单个单元格中。
根据Excel中的日期将行复制并粘贴到另一个工作表
假设我有一系列数据,现在,我想根据特定日期复制整个行,然后将它们粘贴到另一张纸上。 您有什么好主意可以在Excel中处理此工作吗?
复制列并仅粘贴Excel中的唯一记录
对于具有大量重复项的列,您可能需要获取仅具有唯一值的此列表的副本。 您如何才能做到这一点? 在本文中,我们提供两种方法来仅粘贴Excel中列列表中的唯一记录。
从受保护的工作表中复制数据假设您从另一个人那里收到一个Excel文件,该文件的工作表受用户保护,现在,您要将原始数据复制并粘贴到另一个新工作簿中。 但是,由于用户在保护工作表时取消选中“选择锁定的单元格”和“选择解锁的单元格”选项,因此无法选择和复制受保护工作表中的数据。
使用Excel中的高级筛选器将数据复制到另一个工作表
通常,我们可以快速应用“高级筛选器”功能从同一工作表中的原始数据中提取数据。 但是,有时,当您尝试将筛选的结果复制到另一个工作表时,会收到以下警告消息。 在这种情况下,您如何在Excel中处理此任务?
最佳办公效率工具
Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%
超级公式栏 (轻松编辑多行文本和公式);
阅读视图(轻松读取和编辑大量单元格);
粘贴到过滤范围...
合并单元格/行/列 和保存数据; 拆分单元格内容;
合并重复的行和总和/平均值...防止细胞重复;
比较范围...
选择重复或唯一 行;
选择空白行 (所有单元格都是空的);
超级查找和模糊查找 在许多工作簿中; 随机选择...
确切的副本 多个单元格,无需更改公式参考;
自动创建参考 到多张纸;
插入项目符号,复选框等...
收藏并快速插入公式,范围,图表和图片;
加密单元 带密码
创建邮件列表 并发送电子邮件...
提取文字,添加文本,按位置删除,
删除空间; 创建和打印分页小计;
在单元格内容和注释之间转换...
超级筛选 (将过滤方案保存并应用于其他工作表);
高级排序按月/周/日,频率及更多;
特殊过滤器 用粗体,斜体...
结合工作簿和工作表; 根据关键列合并表;
将数据分割成多个工作表;
批量转换xls,xlsx和PDF...
数据透视表分组依据 周号,周几等
显示未锁定的单元格 用不同的颜色
突出显示具有公式/名称的单元格...
阅读更多
功能齐全的30天免费试用版... 采购...
Office Tab - 为 Office 带来选项卡式界面,让您的工作更加轻松
在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
每天将您的工作效率提高50%,并减少数百次鼠标单击!
阅读更多
功能齐全的30天免费试用版... 采购...