摘要
在 Microsoft Excel 中，您可以使用巨集串連兩個相鄰欄中的數據，並在包含您數據的欄右側的欄中顯示結果。 本文包含Microsoft Visual Basic for Applications (VBA) 巨集 (子程式) 的範例。
其他相關資訊
Microsoft僅提供圖例的程序設計範例，不含表示或隱含的保固。 這包括但不限於適銷性或適合某特定用途的默示擔保。 本文假設您熟悉示範的程式設計語言，以及用來建立和偵錯程式的工具。 Microsoft支援工程師可以協助說明特定程式的功能。 不過，他們不會修改這些範例以提供符合您特定需求的新增功能或建構程式。
範例 Visual Basic for Applications (VBA) 巨集
Sub ConcatColumns()
Do While ActiveCell <> "" 'Loops until the active cell is blank.
'The "&" must have a space on both sides or it will be
'treated as a variable type of long integer.
ActiveCell.Offset(0, 1).FormulaR1C1 = _
ActiveCell.Offset(0, -1) & " " & ActiveCell.Offset(0, 0)
ActiveCell.Offset(1, 0).Select
Loop
End Sub
注意：語句 ActiveCell.Offset (0， 1) 。FormulaR1C1 可以取代為語句 ActiveCell.Offset (0， 1) 。公式。 如果您只使用文字和數位， (而非公式) ，則可以使用相同的成功。 第一個語句結尾處所使用的 R1C1 是指列 1、欄 1，是說明中範例中所用的表單。
如何在 Microsoft Office Excel 2007 中使用巨集
-
開啟包含數據的活頁簿。
-
按 ALT+F11 啟動 Visual Basic 編輯器。
-
在 [ 插入] 功能表上，按兩下 [模組 ] 以插入模組。 在模組的程式代碼視窗中輸入巨集。
-
在 [檔案] 功能表上，按兩下 [關閉] 並 [返回] 以Microsoft Excel。
-
選取包含要串連之數據的工作表。
-
按兩下要串連之右欄數據的頂端儲存格。 例如，如果儲存格 A1：A100 和 B1：B100 包含數據，請按兩下單元格 B1。
-
按兩下 [ 開發人員] 索引 標籤。 如果沒有顯示 [ 開發人員] 索引標籤，請依照下列步驟執行：
-
按一下 [Microsoft Office 按鈕]，然後按一下 [Excel 選項]。
-
按兩下 [ 常用]。
-
按兩下以選取 [ 在功能區中顯示開發人員] 索引標籤複 選框。
-
按兩下 [確定 ] 關閉 [ Excel 選項] 對話框。
-
-
按兩下 [程序代碼] 群組中的 [巨集]。
-
選取 ConcatColumns 巨集，然後按兩下 [ 執行]。
如何在 Microsoft Office Excel 2003 和舊版 Excel 中使用巨集
-
開啟包含數據的活頁簿。
-
按 ALT+F11 啟動 Visual Basic 編輯器。
-
在 [ 插入] 功能表上，按兩下 [模組 ] 以插入模組。 在模組的程式代碼視窗中輸入巨集。
-
在 [檔案] 功能表上，按兩下 [關閉] 並 [返回] 以Microsoft Excel。
-
選取包含要串連之數據的工作表。
-
按兩下要串連之右欄數據的頂端儲存格。 例如，如果儲存格 A1：A100 和 B1：B100 包含數據，請按兩下單元格 B1。
-
在 [ 工具] 功能表上，指向 [ 巨集]，然後按兩下 [ 巨集]。 選取 ConcatColumns 巨集，然後按兩下 [ 執行]。
