excel VBA一个fuction同时执行多个正则表达式，实现方法
摘要：代码： Function zhengze3(ze1 As String, ze2 As String, Rng1 As Range, Rng2 As Range) Set regx1 = CreateObject("vbscript.regexp") '需要执行多个正则表达式时，只需要创建多个reg
阅读全文
posted @
2020-09-19 16:37
一个行者
阅读(1101)
推荐(0)
excel VBA把一个单元格内容按逗号拆分并依次替换到另一个单元格的括号里面（本题例子，把文本中的括号换成{答案}的格式，并按顺序填空）
摘要：方法1：运用excel单元格拆分合并实现 思路：用VBA正则查询左侧括号个数，对右侧单元格逐一按逗号、顿号等符号分列，同时左侧按括号分列（分列只能按括号单边分列），分列完成后按要求合并，本题事例把括号换成{}+把对应答案的空填入，本题先按逗号分列，再按顿号。分列后按左侧分出来的第一列和右侧分出来第一
阅读全文
posted @
2020-09-11 10:54
一个行者
阅读(3767)
推荐(1)
excel VBA中Xldown和xlup用法
摘要：1.Worksheets("Sheet1").Range("A1").End(xlDown).Select '意思为自A1起，返回从上往下的最后一个非空单元格 此时返回的单元格是A2，写法也可以拆分： Worksheets("Sheet1").Range("A1").Select Selection
阅读全文
posted @
2020-03-18 14:36
一个行者
阅读(7030)
推荐(0)
excel用函数去掉单元格内容中的括号，并只保留单元格里面的内容
摘要：1.substitute(需要执行替换操作的单元格,需要替换的字符,替换后的字符,有多个需要替换的字符可以指定替换的第几个) 例如：aab——substitute("aab","a","b",2)——abb 2.结合正则处理如下，首先在vba写好正则函数（前面已写有完整的正则函数代码），再运用sub
阅读全文
posted @
2019-12-30 15:19
一个行者
阅读(6295)
推荐(0)
excel VBA正则匹配单元格符号，并按符号把单元格拆分行(这里是按第一列分行，分行是从活动单元格的行开始，分行前需要选择所有需要填充内容的列，否则需要后期手动填充)
摘要：Sub W() ' MsgBox "行数:" & Selection.Rows.Count Dim rows_count As Integer Dim rows_id As Integer Dim column_count As Integer column_count = Selection.Co
阅读全文
posted @
2019-12-25 11:27
一个行者
阅读(960)
推荐(0)
excel VBA返回选中单元格区域的行数、列数，以及活动单元格的行号和列号
摘要：Private Sub Worksheet_SelectionChange(ByVal Target As Range) '可以直接sub(),不然选择就会触发vba Dim rows_count As Integer Dim rows_id As Integer Dim column_count
阅读全文
posted @
2019-12-24 11:04
一个行者
阅读(13235)
推荐(0)
excel vba的inputBox函数
摘要：Sub test1() Dim h Dim j As Integer j = 0 Dim n1 As Integer '分行单元格在第几列 Dim m1 As Integer '填充到的列 Dim p As Integer '所有内容的列数 Dim p2 As Integer n1 = InputB
阅读全文
posted @
2019-12-20 10:10
一个行者
阅读(1360)
推荐(0)
excel VBA根据一列的逗号隔开值分行
摘要：Sub test1() Dim h Dim j As Integer j = 0 Dim n1 As Integer '分行单元格在第几列 Dim m1 As Integer '填充到的列 Dim p As Integer '所有内容的列数 n1 = 1 m1 = 2 p = 4 'Applicat
阅读全文
posted @
2019-12-11 14:00
一个行者
阅读(2026)
推荐(0)
excel VBA根据单元格内的逗号把内容拆分行
摘要：Sub test1() Dim h Dim j As Integer j = 0 '用于辅助循环的进行，可以在拆分行获取下一个需要拆分单元格的行号 'Application.ScreenUpdating = False 'For i = 1 To Range("a65536").End(xlUp).
阅读全文
posted @
2019-12-11 09:25
一个行者
阅读(3173)
推荐(0)
excel VBA数组运用
摘要：Sub a()Dim i人数 As Integer'定义变量Dim i考试成绩() As Integer'定义数组Dim i As Integer'定义变量i人数 = InputBox("输入学生的人数：")'弹出输入框ReDim Preserve i考试成绩(i人数)'根据输入的人数来定义数组的长
阅读全文
posted @
2019-12-09 14:40
一个行者
阅读(982)
推荐(0)
EXCEL根据某一列单元格特定标点符号分行，其它列内容一致
摘要：注意事项：此方法注意运用excel空值单元格填充，因此数据处理之前，如果存在值为空的，请特殊处理，后期处理完再替换为原来的空值 1.在决定分行数的列后插入一列 2.根据逗号之前值最多的数量来决定分行数，先给插入的列标示一个连续的数字序列 3.根据第二步的最多分行数，来决定需要插入的空行数量（也就是c
阅读全文
posted @
2019-12-09 10:28
一个行者
阅读(5248)
推荐(0)
excel VBA使用教程
摘要：1.选择文件——选项 2.选择自定义功能区——开发工具的√勾上 3.点击开发工具中的Visual Basic 4.点击插入——模块，编辑自己想要的函数逻辑 5.点击返回excel视图 6.直接输入函数名调用即可，参数对应Visual Basic中函数的变量，到此即可完成自定义函数的引用 7.保存——
阅读全文
posted @
2019-10-31 16:52
一个行者
阅读(2071)
推荐(0)
excel VBA构造正则函数（双参数）
摘要：Function zhengze(ze As String, Rng As Range) Set regx = CreateObject("vbscript.regexp")With regx .Global = True .Pattern = ze '写正则表达式 Set mat = .Execu
阅读全文
posted @
2019-10-29 17:12
一个行者
阅读(640)
推荐(0)
excel VBA构造函数就是这么简单
摘要：Function test(a As Integer)'构造函数名字为test参数为a且为int型 If a >= 90 Then Debug.Print "优秀" test = "优秀" '赋值到单元格，跨表依然适用 ElseIf a >= 60 Then Debug.Print "及格" tes
阅读全文
posted @
2019-10-29 17:05
一个行者
阅读(1049)
推荐(0)
excel VBA中正则模块vbscript.regexp的用法
摘要：一、是一个对象，用于执行 正则表达式！ 二、有三个属性： 1. Global属性: True or False, 指明模式是匹配整个字符串中所有与之相符的地方还是只匹配第一次出现的地方。默认值是False(表示只匹配第一次出现的地方)。 2. IgnoreCase属性: True or False,
阅读全文
posted @
2019-10-29 16:59
一个行者
阅读(4109)
推荐(0)
excel VBA构造正则函数（单参数）
摘要：Function zhengze(Rng As Range) Set regx = CreateObject("vbscript.regexp")With regx .Global = True .Pattern = "\d{4}-\d{2}-\d{2}" '写正则表达式 Set mat = .Ex
阅读全文
posted @
2019-10-29 16:57
一个行者
阅读(533)
推荐(0)
浙公网安备 33010602011771号