Excel VBA：合併單元格並保留所合併單元格的全部數據

在Excel中，使用合併單元格功能時，最後的結果將只是所合併區域左上角單元格中的數據，如圖1所示。

然而，很多時候我們都需要在合併的同時也能保留單元格的的數據。下面的程序在合併單元格後將保留合併單元格區域中所有單元格中的數據。

Sub MergeCellsAndValues()
	Dim rng AsRange    
	Dim strResult As String       
	On ErrorResume Next       
	For Eachrng In Selection       '可以將' '更換爲你自已的分隔符號       
	strResult = strResult & rng.Value & ' '    
	Next rng       
	strResult= Left(strResult, Len(strResult) - 2)       
	
	WithSelection        
		.Clear       
		.Cells(1).Value = strResult        
		.Merge       
		.HorizontalAlignment = xlLeft       
		.VerticalAlignment = xlCenter       
		.WrapText = True    
	End With
End Sub

代碼首先遍歷所要合併的單元格並將這些單元格中的值連接成一個字符串存儲在指定的變量中，示例中使用空格（” ”）來分隔各單元格的數據，你可以修改爲其他分隔符，例如逗號。代碼運行後的效果如圖所示。