返回首页
当前位置: 主页 > Excel教程 > Excel VBA教程 >

如何在Excel中将两列合并为具有交替值的列?

时间:2018-09-07 00:01来源:Office教程学习网 www.office68.com编辑:麦田守望者

以下是工作表中的两列,其中的工作是将这两列合并为一列,并使用值替换,如下面的屏幕截图所示。 如何在不重新排序的情况下快速处理工作?
doc将两列合并为一列,交替值为1

通过VBA代码将两列合并为一个具有交替值的列

通过Kutools for Excel将两列合并为一个具有交替值的列好idea3

在Excel中快速将范围转置为列/行/反之亦然

在某些情况下,您可能需要将一系列单元格转换为一列或一行,反之亦然,可将列或行转换为Excel表格中的多行和多列。 你有什么快速的方法来解决它? 在这里 移调范围 功能 Kutools for Excel 可以轻松处理所有以上的工作。点击60天免费试用!
doc1
 
Kutools for Excel:拥有超过200便利的Excel加载项,可以在60天免费试用,不受限制。

通过VBA代码将两列合并为一个具有交替值的列

要将两列合并为具有交替值的列,除Excel中的VBA代码外没有内置函数。

1。 按 Alt + F11键 键启用 Microsoft Visual Basic for Applications 窗口。 点击 插页 > 模块 创建一个新的空白模块。

2。 将代码复制并粘贴到模块中。

VBA:将两列合并为一个具有值替代的列

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 

 

Sub MergeColumns()
'UpdatebyExtendoffice20180815
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNum As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select two columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
Application.ScreenUpdating = True
Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
For xFNum = 1 To xSRg.Count
Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
xDRg.Value = xSRg.Item(xFNum).Value
xI = xI + 1
Next xFNum
Application.ScreenUpdating = True
End Sub

3。 按 F5 键并选择要合并到弹出对话框的两列。
doc将两列合并为一列,交替值为2

4。 点击 OK,在第二个对话框中,选择要放置结果的单元格。
doc将两列合并为一列,交替值为3

5。 点击 OK。 现在,所选的两列已合并为一列,并且值为替代值。

通过Kutools for Excel将两列合并为一个具有交替值的列

如果你有 Kutools for Excel 安装在Excel中,其 Transform Range 实用程序只需要3简单步骤即可解决此问题。

 

安装后 Kutools for Excel,请按照以下步骤操作:(免费下载Kutools for Excel!)

1。 选择要合并的列(两个或更多),单击 Kutools > Transform Range.
doc将两列合并为一列,交替值为4

2。 在里面 Transform Range 对话框,检查 Range to single column 选项,然后单击 Ok.
doc将两列合并为一列,交替值为5

3。 选择一个单元格以将结果放在弹出对话框中。 点击 OK.
doc将两列合并为一列,交替值为6

现在列已合并为一列,值按替代顺序排列。
doc将两列合并为一列,交替值为7



 

 

推荐的生产力工具

Office Tab

gold star1 带上方便的选项卡到Excel和其他Office软件,就像Chrome浏览器,Firefox和新的Internet Explorer。

Kutools for Excel

gold star1 惊人! 提高您在5分钟的生产力。 不需要任何特殊技能,每天保存两个小时!

gold star1 200 Excel的新功能,让Excel变得简单而强大:

  • 合并单元格/行/列而不丢失数据。
  • 合并和合并多个工作表和工作簿。
  • 比较范围,复制多个范围,将文本转换为日期,单位和货币转换。
  • 按颜色计算,分页小计,高级分类和超级筛选,
  • 更多选择/插入/删除/文本/格式/链接/评论/工作簿/工作表工具...

Excel的Kutools屏幕截图

------分隔线----------------------------
标签(Tag):excel excel2016 excel宏表函数
------分隔线----------------------------
推荐内容
猜你感兴趣