标签:End Sub Excel 单元格 rng Next 丢失 strOutput
方法:使用VBA
可以使用下面的代码合并所选单元格:
Sub MergeCells()
'连接所选单元格中的所有内容并将其放入最上方单元格
'然后合并所有单元格
Dim strOutput As String
Dim rng As Range
Const delim = " "
On Error Resume Next
For Each rng In Selection
strOutput = strOutput & rng.Value & delim
Next rng
With Selection
.Clear
.Cells(1).Value = strOutput
.Merge
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.WrapText = True
End With
End Sub
标签:End,Sub,Excel,单元格,rng,Next,丢失,strOutput 来源: https://blog.csdn.net/u014312384/article/details/122662943
本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享; 2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关; 3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关; 4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除; 5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。