Question

EXCEL里一步合并多个有值的单元格。求编宏

如题，同一列中N个连续的单元格，每格都有字符串。当我选定它们以后，我想要将第一个以下的格子里的内容自动用chr(10)或字符器"<br>"接到第一个单元格内来。并且设置一个快捷键来执行它。

变成：





Answer 1

Sub hbz()
Dim s As String, i As Integer
For i = 1 To Selection.Count
 If i = 1 Then
  s = Selection.Cells(i)
 Else
  s = s & Chr(10) & Selection.Cells(i)
 End If
Next
Selection.ClearContents
Selection.Cells(1).Value = s
End Sub

ALT+F11打开VBE编辑器，新建个模块，粘贴如上代码。

视图-工具栏，在窗体前打√，鼠标左键拖个按钮，指定hbz宏，以后选中区域就点击按钮运行，即可。

Answer 2

选择区域后执行这段VBA
Sub hb()
str2 = ""
str1 = Selection.Cells(1)
For i = 2 To Selection.Count
str2 = str1 & Chr(10) & Selection.Cells(i)
Next
Selection = ""
ActiveCell = str1 & str2
End Sub

Answer 3

这个问题以前见过啊，程序代编，个人资料里可查邮箱。