Page 1696 - Excel 高效办公应用与技巧大全
P. 1696
Dim c As Range
Dim MyStr As String
On Error Resume Next '关闭错误开关
For Each c In Selection '循环选定的单元格区域
MyStr = MyStr & c.Value '连接文本
Next
With Selection
.Value = Empty '内容置空
.Merge '合并单元格
.Value = MyStr '赋值
End With
End Sub
