在工作表標籤上擊右鍵，檢視程式碼，

出來VBE視窗。點“插入”，模組。在左側”模組“中雙擊，在右側的模組程式碼窗格中貼上以下程式碼，然後按ALT+F8執行宏，就行了。（附件中有樣本，假設你要合併的是BC兩列。）

Sub 隔行合併()

Sub 隔行合併()Dim cFor i = 2 To [b65536].End(3).RowIf i Mod 2 = 1 Then c = CStr(Cells(i, 2)) & CStr(Cells(i, 3)) Cells(i, 2) = "" Cells(i, 3) = "" Range("B1:C1").Offset(i - 1, 0).Merge Cells(i, 2) = c c = "" End If NextEnd Sub

可用公式來實現

也可不用公式

如圖所示

步驟為

1輔助列，

2上下貼在一起

3排序