-
1 # 辦公幫幫堂
-
2 # 樂享所知
方法大致有兩種:公式法和VBA
公式法:公式大致有4種:
用連線符號“&”進行合併,當單元格數量較多時不合適,5個一下可以考慮用此法;
使用CONCATENATE 函式進行合併,單元格區域不連續,數量較多時也不合適!
使用PHONETIC 函式進行合併,單元格區域可以連續,所以數量較多可以使用此公式進行合併。
新版本Excel增加一個函式CONCAT,可以彌補CONCATENATE 函式的不足,可以使用此函式進行合併。
前面三個方法已經有人講解了,而且講得非常好,這裡不再贅述,看一下公式4的使用即可:
VBA:這裡重點介紹VBA方法,使用VBA可以彌補系統自帶函式的不足,下面給出的VBA程式碼不但可以將多個單元格的內容合併到一個單元格上,還能夠增加前後綴和分隔符,下面來看一下具體的演示:
不增加前後綴:增加前後綴:程式碼:Sub 合併多個單元格內容到一個單元格()
Dim tar, rng As Range
Dim decoration, separator$, flag%
On Error GoTo Error
decoration = InputBox("請輸入修飾符(前後綴):", "輸入修飾符(前後綴):", "")
separator = InputBox("請輸入分隔符", "輸入分隔符", "")
flag = InputBox("請判斷是要加字首還是加字尾?", "-1:字首 0:前後綴 1:字尾", 0)
Set tar = Application.InputBox(prompt:="請選擇存放結果的單元格:", Title:="選擇存放結果的單元格:", Type:=8)
For Each rng In Selection
If rng.Value <> "" Then
If flag = -1 Then
tar.Value = tar.Value & decoration & rng.Value & separator
ElseIf flag = 0 Then
tar.Value = tar.Value & decoration & rng.Value & decoration & separator
Else
tar.Value = tar.Value & rng.Value & decoration & separator
End If
Else
End If
Next
If decoration = """ Then
tar.Value = decoration & decoration & Left(tar.Value, Len(tar.Value) - 1)
ElseIf decoration <> """ Then
tar.Value = Left(tar.Value, Len(tar.Value) - 1)
End If
Error:
Exit Sub "出錯時推出程式
End Sub
回覆列表
幾個單元格合併使用符號“&”。
合併效果1:龍泉十小三年級二班小強
Excel公式為=需要合併單元格&需要合併單元格&需要合併單元格。
合併效果2: 龍泉十小 三年級二班 小強
Excel公式=需要合併單元格&"隔斷符號(空格、|、,等)"&需要合併單元格&"隔斷符號(空格、|、,等)"&需要合併單元格