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

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

Kutools for Excel, 与超过 300 方便的功能，使您的工作更加轻松。 

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！