Excel小技巧整理(持续更新)

合并某列中相同单元格


参考https://jingyan.baidu.com/article/9158e00006db70a25512286f.html

使用方法

  • 先给须要合并的列排序,这样相同数据会排在一块儿
  • 在excel中按Alt+F11打开VBA窗口
    • 一次性使用:直接插入新的模块, 复制下文中的代码,而后转到excel主界面进行后续操做

    • 想要保存模块并在接下来的excel文件中使用,能够参考下图将模块导出成bas文件,以后在在新的excel中打开VBA界面,左侧文件列表右键导入.bas文件

  • 切换回表格窗口,在“视图”菜单下找到“宏”,选择“查看宏”并执行该宏
  • 输入须要合并的事第几列,注意是数字而不是ABC
  • 肯定,完成

VBA代码以下

 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
View Code

 

单元格中提取数字


 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
View Code

 使用方法是在单元格中输入函数名字,括号参数为单元格,便可使用spa

 

对于一个单元格中多位同窗信息而且夹杂中文、数字和符号的状况,先提取全部数字,再相似于步骤4根据固定字符串长度来分割学号(数字),转换为步骤3的状况处理3d

不受筛选影响的填充序列方法


 

筛选前,在A2单元格输入如下公式,而后向下填充公式excel

=SUBTOTAL(103,B$2:B2)

公式表示:对B$2:B2区域未被隐藏的实际显示数据计数。其中的103就是个常数,不要更改code

这样执行筛选后,不符合条件的行不参与序号编排。regexp

详见附图orm

 

相关文章
相关标签/搜索