合并选中单元格区域中的内容并将内容放置在区域内的第一个单元格内,合并连接符为“,”。并输出单元件内元件的数量。
''功能:合并选中区域内的单元格内并输出在选中区域内的Cells(1,1)单元格内
''条件:元件位号在单元格内的分隔符为“逗号”,若不是“逗号”则需要将
'' “allstr = allstr & "," & n”和all = Split(allstr, ",")中的“,”
'' 改为单元格内的分隔符
''结果:合并相同料号的位号在同一个单元格内并且输出数量在位号的右边一个单元格内
'' 且其他选中区域的内容需要手动删除
Sub mycomb()
Dim all() As String
Dim row, col, i, m As Integer
Dim allstr As String
'获取选中单元格区域的行列号
row = Selection.row
col = Selection.Column
i = 0
'遍历每一个选中的单元格内容,并将内容用“,”连接起来
For Each n In Selection
If i = 0 Then
allstr = n
Else
allstr = allstr & "," & n
End If
i = i + 1
Next
’将选中区域内单元格内容合并的值填入第一个单元格内,并计算出数量放入第一个单元格内的右边一个单元格
cells(row, col).Value = allstr
all = Split(allstr, ",")
m = UBound(all) + 1
cells(row, col + 1).Value = m
End Sub
操作前状态:
选中需要合并的区域:
运行脚本后状态: