跳到主要內容

如何在Excel中將兩列合併為具有交替值的列?

這是工作表中的兩列,將這兩列合併為一列的工作是,使用值替代方法,如下所示。 您如何快速處理工作而又不一一對應地重新排序?
doc將兩列合併為具有交替值1的列

通過VBA代碼將兩列合併為具有交替值的列

通過Kutools for Excel將兩列合併為具有交替值的列好主意3


通過VBA代碼將兩列合併為具有交替值的列

要將兩列具有交替值的列合併為一列,除了Excel中的VBA代碼外,沒有內置函數。

1。 按 Alt + F11鍵 啟用鍵 Microsoft Visual Basic for Applications 窗口。 點擊 插入 > 模塊 創建一個新的空白模塊。

2.將以下代碼複製並粘貼到模塊中。

VBA:將兩列合併為一個具有替代值的列

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將兩列合併為具有交替值的列

如果你有 Excel的Kutools 安裝在Excel中 Transform Range 實用程序只需3個簡單步驟即可解決此工作。

Excel的Kutools, 與以上 300 方便的功能,使您的工作更加輕鬆。 

安裝後 Kutools for Excel,請執行以下操作:(立即免費下載Kutools for Excel!)

1.選擇要合併的列(兩個或更多),單擊 庫工具 > Transform Range.
doc將兩列合併為具有交替值4的列

2。 在裡面 Transform Range 對話框,檢查 Range to single column 選項,然後單擊 Ok.
doc將兩列合併為具有交替值5的列

3.選擇一個單元格以將結果放置在彈出對話框中。 請點擊 OK.
doc將兩列合併為具有交替值6的列

現在,這些列已合併為一個,並且值以替代順序排列。
doc將兩列合併為具有交替值7的列

最佳辦公生產力工具

熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
超級查詢: 多條件VLookup    多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
特色功能: 網格焦點   |  設計圖   |   大方程式酒吧    工作簿和工作表管理器   |  資源庫 (自動文字)   |  日期選擇器   |  合併工作表   |  加密/解密單元格    按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 (過濾粗體/斜體/刪除線...)...
前 15 個工具集12 文本 工具 (添加文本, 刪除字符,...)   |   50+ 圖表 類型 (甘特圖,...)   |   40+ 實用 公式 (根據生日計算年齡,...)   |   19 插入 工具 (插入二維碼, 從路徑插入圖片,...)   |   12 轉化 工具 (數字到單詞, 貨幣兌換,...)   |   7 合併與拆分 工具 (高級合併行, 分裂細胞,...)   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

kte選項卡201905


Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It worked! Thank you!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations