如何在Excel中將兩列合併為一列，並交替顯示值？

在本文中，使用者將學習如何在Microsoft Excel中將兩列合併為一列，並交替顯示值。Excel工作表中包含多種結構，包括“開始”選項卡、“Visual Basic應用程式（VBA）”選項卡和“Ku-tools”選項卡，可以使用Ku-tools將兩列合併為一列，並根據需要開啟對話方塊。使用者可以使用Visual Basic將兩列合併為一列。此方法可以透過使用Ku-tools選項卡在Microsoft Excel中以簡單的方式完成，從而將兩列合併到另一列中。

示例 1：使用VBA將兩列合併為一列，並交替顯示值

步驟 1

考慮Excel工作表。首先，開啟Excel工作表，並根據需要在單元格A1到B5中逐個建立資料，如下所示。

步驟 2

在工作表中，將游標放在任何單元格中，然後轉到功能區。功能區頂部角落包含許多選項卡。將游標放在“開發工具”選項卡上，然後單擊該選項卡，其中包含許多選項。在“開發工具”選項卡上，將游標放在“程式碼”組中的“Visual Basic應用程式”選項卡上，這將開啟VBA。在此視窗中，功能區中包含許多選項卡。將游標放在“插入”選項卡上，其中包含許多選項。單擊“模組”選項卡，這將開啟編碼視窗，使用者必須在此視窗中編寫程式以隱藏除活動工作表之外的所有工作表，如下所示。

步驟 3

在此編碼視窗中，編寫必須執行的程式碼。該程式為：

Sub MergeCol()
Dim x1, x2 As Range
Dim k1 As Worksheet
Dim r1, r2, r3 As Long
Dim f1 As Long
On Error GoTo Err
Set x1 = Application.InputBox("Choose the  two types of columns:", "Excel", xText, , , , , 8)
If x1 Is Nothing Then
Err:
   Application.ScreenUpdating = True
   Exit Sub
End If
Set x2 = Application.InputBox("Select a cell:", "Excel", xText, , , , , 8)
If x2 Is Nothing Then
   Exit Sub
End If
Application.ScreenUpdating = False
Set k1 = x2.Worksheet
r1 = x2.Row
r2 = x2.Column
r3 = 0
   For f1 = 1 To x1.Count
      Set x2 = k1.Cells(r1 + r3, r2)
      x2.Value = x1.Item(f1).Value
      r3 = r3 + 1
   Next f1
Application.ScreenUpdating = True
End Sub

步驟 4

在Visual Basic視窗中，將游標放在功能區上，然後單擊“執行”圖示以執行此程式碼，這將在活動工作表中開啟對話方塊。選擇要合併的兩列或所有單元格。單擊“執行”選項卡，然後它將返回到工作表。在工作表中，它將開啟一個彈出視窗，要求選擇兩列。在彈出視窗中，選擇從A1到B5的範圍，然後單擊“確定”按鈕，這將開啟彈出視窗。在此視窗中，選擇要將兩列合併到的單元格。它將兩列合併為一列，如下所示。