2018年8月20日

正则表达式

摘要： regexp_like() --返回满足条件的字段regexp_instr() --返回满足条件的字符或字符串的位置regexp_replace() --返回替换后的字符串regexp_substr() --返回满足条件的字符或字符串这四个函数的功能分别对应传统sql的 like操作符 和 inst 阅读全文

posted @ 2018-08-20 13:59 lizicheng 阅读(140) 评论(0) 推荐(0) 编辑

合并工作表

摘要： Sub 追加1() On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False Dim a As Variant Sheets("汇总").Delete Worksheets.Add before:=Worksheets(1) ActiveSheet.N... 阅读全文

posted @ 2018-08-20 12:12 lizicheng 阅读(164) 评论(0) 推荐(0) 编辑

去重

摘要： Sub 去重() Application.ScreenUpdating = False Dim r As Range, arr With CreateObject("scripting.dictionary") a = Cells(2000, 9).End(xlUp).Row For k = 9 To 10 For Each r In Range(Cells(4, k),... 阅读全文

posted @ 2018-08-20 12:05 lizicheng 阅读(195) 评论(0) 推荐(0) 编辑

分割表

摘要： Sub 分割表() Application.ScreenUpdating = False For i = 3 To Sheets.Count a = Sheets(i).Name Sheets(i).Select Sheets(i).Copy ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & a &... 阅读全文

posted @ 2018-08-20 08:56 lizicheng 阅读(284) 评论(0) 推荐(0) 编辑

导航