发布网友 发布时间:2022-04-24 10:09
共2个回答
热心网友 时间:2022-06-26 03:32
'自定义公式-按ALT+F11-插入-模块-粘贴代码-将表格另存为启用宏的格式
Function 合并(a As Range, Optional ByVal b As String = ",")
For I = 1 To a.Rows.Count
If a.Cells(I, 1) = "" Then Exit For
合并 = 合并 & b & a.Cells(I, 1) & a.Cells(I, 2) & a.Cells(I, 3)
Next
合并 = Mid(合并, 2)
End Function
热心网友 时间:2022-06-26 04:50
因为有上下标,公式不能的,用代码可以。