提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

如何在Excel中的行或列之间交换内容?

有时,当我们使用工作表时,我们需要交换行或列。 例如,我想将列A与列D交换,我想到的第一件事就是使用复制和粘贴命令。 事实上,除了复制和粘贴之外,还有其他一些方法可以解决这个问题。

用VBA代码交换行或列

使用Kutools for Excel快速方便地交换行或列

使用Kutools for Excel将数据从行转换为多列



在Excel工作表中快速将数据从行转换为多列:

您订购的 Kutools for Excel变换范围 功能,您可以快速将数据从一行或一列转换为多行或多列,反之亦然。

doc转置数据

Kutools for Excel:比200方便的Excel加载项,可以在60天免费试用。 下载并免费试用现在!


1。 按住 ALT + F11 键,然后打开 Microsoft Visual Basic for Applications 窗口。

2。 点击 插页 > 模块,并将以下代码粘贴到 模块 窗口。

Sub SwapTwoRange()
'Updateby20131113
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant, arr2 As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1:", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Application.ScreenUpdating = False
arr1 = Rng1.Value
arr2 = Rng2.Value
Rng1.Value = arr2
Rng2.Value = arr1
Application.ScreenUpdating = True
End Sub

3。 然后点击 按钮来运行代码,弹出一个对话框供您选择要与之交换的两个范围,请参阅屏幕截图:

doc交换行列01 01
 1
doc交换行列02 02

4。 点击后 Ok,两个范围交换。 查看截图:

doc交换行列01 01  2 doc交换行列02 02

对于Excel的初学者来说,代码可能很难,有没有简单的方法可以快速,省时地完成。 当然,Kutools for Excel可以帮助您快速,舒适地交换行或列。

Kutools for Excel : 与超过300方便的Excel加载项,在60天免费试用没有限制.

如果你已经安装 Kutools for Excel,你可以快速交换两列或几行。

1. 点击 Kutools > Range > 交换范围,看截图:

doc交换行列02 02

2.交换范围 对话框,单击 按钮 交换范围1 选择要交换的列A,然后单击 按钮 交换范围2 选择列D.( 注意:交换的范围必须相同,大小相同。)

doc交换行列02 02

3。 然后点击 OK。 这两列已交换,并且单元格格式也被交换。 查看截图:

doc交换行列01 01  2 doc交换行列02 02

有了这个 交换范围您不仅可以交换行或列,还可以交换两个范围的内容。 点击此处了解更多关于此功能的信息.

立即下载并免费试用Kutools for Excel!


Kutools for Excel:比200方便的Excel加载项,可以在60天免费试用。 下载并免费试用现在!


相关文章:

如何在Excel中快速交换两个单元格的内容?


Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及你以前用过的任何东西; 加密单元格 密码; 创建邮件列表 并发送电子邮件...
  • 超级方程式酒吧 (轻松编辑多行文字和公式); 阅读布局 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不丢失数据; 分裂细胞含量; 组合重复的行/列...防止重复的细胞; 比较范围...
  • 选择复制或唯一 行; 选择空行 (所有细胞都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择......
  • 精确复制 多个单元格而不更改公式参考; 自动创建参考 多张表; 插入项目符号,复选框等等......
  • 提取文本,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级过滤器 (将过滤方案保存并应用到其他工作表); 高级排序 按月/周/日,频率等; 特殊过滤器 用粗体,斜体......
  • 结合工作簿和工作表; 根据键列合并表; 将数据拆分为多个表格; 批量转换xls,xlsx和PDF...
  • 超过300强大的功能。 支持Office / Excel 2007-2019和365。 支持所有语言。 在您的企业或组织中轻松部署。 全功能30天免费试用。
kte tab 201905

Office选项卡为Office提供选项卡式界面,使您的工作更轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,Publisher,Access,Visio和Project。
  • 在同一窗口的新选项卡中打开并创建多个文档,而不是在新窗口中。
  • 通过50%提高您的工作效率,每天为您减少数百次鼠标点击!
官方底部
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Akhil · 4 years ago
    Okk is there any way we can create a MACRO for it to do it fast bcz it won't be possible everytime to copy that code from somewhere and put it out there to Swap that Rows and Columns .
  • To post as a guest, your comment is unpublished.
    Sean · 4 years ago
    or you can just hold the shift key and drag the column where you want it to go
  • To post as a guest, your comment is unpublished.
    Kinane · 4 years ago
    I've tried the VBA code solution.
    It seemed to work fine until now.
    In the range i swap, there is a URL cell (i.e. hyperlink). Although the swap looks ok, the hyperlinks are not updated. It still points to the URL of the original range.
    Is there any code patch to handle this?
    thank you.
  • To post as a guest, your comment is unpublished.
    richy · 4 years ago
    Learn how to spell. Ridiculous. Emial. Really?
  • To post as a guest, your comment is unpublished.
    joey · 4 years ago
    Please learn how to spell before posting on the web.
  • To post as a guest, your comment is unpublished.
    karolans · 5 years ago
    So in short, there is no built-in way to swap columns. Fail :)