2019 年 12月随笔档案 - 一个行者

excel用函数去掉单元格内容中的括号，并只保留单元格里面的内容

摘要：1.substitute(需要执行替换操作的单元格,需要替换的字符,替换后的字符,有多个需要替换的字符可以指定替换的第几个) 例如：aab——substitute("aab","a","b",2)——abb 2.结合正则处理如下，首先在vba写好正则函数（前面已写有完整的正则函数代码），再运用sub 阅读全文

posted @ 2019-12-30 15:19 一个行者阅读(6203) 评论(0) 推荐(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 一个行者阅读(950) 评论(0) 推荐(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 一个行者阅读(13069) 评论(0) 推荐(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 一个行者阅读(1338) 评论(0) 推荐(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 一个行者阅读(1960) 评论(0) 推荐(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 一个行者阅读(3098) 评论(0) 推荐(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 一个行者阅读(978) 评论(0) 推荐(0)

EXCEL根据某一列单元格特定标点符号分行，其它列内容一致

摘要：注意事项：此方法注意运用excel空值单元格填充，因此数据处理之前，如果存在值为空的，请特殊处理，后期处理完再替换为原来的空值 1.在决定分行数的列后插入一列 2.根据逗号之前值最多的数量来决定分行数，先给插入的列标示一个连续的数字序列 3.根据第二步的最多分行数，来决定需要插入的空行数量（也就是c 阅读全文

posted @ 2019-12-09 10:28 一个行者阅读(5174) 评论(1) 推荐(0)