修法布施得聪明智慧，多分享让生活更美好。上次笔者分享了《Excel怎样批量单元格内容换行去掉》，现在分享多个单元格内容合在一个单元格内，并且内容换行或每行最后加符号，或不分行连接起来或中间加符号，达到四种情况如下图。
工具/原料
MicrosoftOfficeExcel2007
ExcelVBA
方法/步骤
1、打开MicrosoftOfficeExcel2007上面文件，然后按下快捷键ALT+F11打开VBA（宏）编辑界面VBE窗口，然后点菜单栏【插入】下拉中列表中点【模块（M）】如图。
2、插入了一个模块1，在代码框中复制如下代艨位雅剖码：Sub单元格内容连接()'2020-1-122吭稿荔徊1:12:58DimmyAsRange,Response,bdAsString,my1AsString,iAsLongi=1Setmy=SelectionResponse=MsgBox("是否要换行？",vbYesNo)IfResponse=vbYesThenResponse=MsgBox("是否要加符号？",vbYesNo)IfResponse=vbYesThenbd=Application.InputBox(prompt:="请输入符号",Type:=2)ForEachcInmyIfi=1ThenIfc.Value<>""Thenmy1=c.Text&bd:i=i+1ElseIfc.Value<>""Thenmy1=my1&vbLf&c.Text&bd:i=i+1EndIfNextcElseForEachcInmyIfi=1ThenIfc.Value<>""Thenmy1=c.Text:i=i+1ElseIfc.Value<>""Thenmy1=my1&vbLf&c.Text:i=i+1EndIfNextcEndIfElseResponse=MsgBox("是否要加符号？",vbYesNo)IfResponse=vbYesThenbd=Application.InputBox(prompt:="请输入符号",Type:=2)ForEachcInmyIfi=1ThenIfc.Value<>""Thenmy1=c.Text&bd:i=i+1ElseIfc.Value<>""Thenmy1=my1&c.Text&bd:i=i+1EndIfNextcElseForEachcInmyIfi=1ThenIfc.Value<>""Thenmy1=c.Text:i=i+1ElseIfc.Value<>""Thenmy1=my1&c.Text:i=i+1EndIfNextcEndIfEndIfSetmy=Application.InputBox(prompt:="内容连接完成请选单元格输出",Type:=8)my=my1EndSub
3、以上操作动态过程如下：
4、回到工作表窗口，先选需连接单元坼黉赞楞格区域，再运行【单元格内容连接】宏（菜单栏中点【视图】中下列表中【宏】列表【查看宏(V)】打开宏对方框，选该宏名），宏运行会提示你选择，"是否要换若益肽屙行？"，"是否要加符号？"，"请输入符号"，根据需要选择输入，运行过程如下图。
5、如果觉得这篇经验帮到了您，请点击下方的“投票点赞"或者“收藏”支持我！还有疑问的话可以点击下方的“我有疑问”，谢谢啦！