参考https://jingyan.baidu.com/article/9158e00006db70a25512286f.html
1 Sub 合并相同用单元格() 2 Dim l%, i% 3 Application.DisplayAlerts = False 4 k% = InputBox("请输入合并单元格所在列") 5 l = [A65536].End(xlUp).Row 6 For i = l To 2 Step -1 7 If Cells(i, k) = Cells(i - 1, k) Then 8 Range(Cells(i - 1, k), Cells(i, k)).Merge 9 End If 10 Next 11 Application.DisplayAlerts = True 12 End Sub
https://baijiahao.baidu.com/s?id=1575378393296614&wfr=spider&for=pchtml
对于一个单元格中多位同窗信息而且夹杂中文、数字和符号的状况,先提取全部数字,再相似于步骤4根据固定字符串长度来分割学号(数字),转换为步骤3的状况处理ide
打开VBA方式也能够是右键标签页-查看代码函数
Function mygetnumber(cel As Range) With CreateObject("vbscript.regexp") .Pattern = "[^\d.-]+" .Global = True mygetnumber = .Replace(cel, " ") End With End Function
使用方法是在单元格中输入函数名字,括号参数为单元格,便可使用spa
对于一个单元格中多位同窗信息而且夹杂中文、数字和符号的状况,先提取全部数字,再相似于步骤4根据固定字符串长度来分割学号(数字),转换为步骤3的状况处理3d
筛选前,在A2单元格输入如下公式,而后向下填充公式excel
=SUBTOTAL(103,B$2:B2)
公式表示:对B$2:B2区域未被隐藏的实际显示数据计数。其中的103就是个常数,不要更改code
这样执行筛选后,不符合条件的行不参与序号编排。regexp
详见附图orm