- 博客(5)
- 资源 (1)
- 收藏
- 关注
RSS订阅转载 删除中文段落2020-10-11
Sub 删除中文段落() On Error Resume Next Dim i As Paragraph For Each i In ActiveDocument.Paragraphs If i.Range Like "*" & Chr(13) & Chr(7) Then i.Range.Font.Color = wdColorRed i.Range.Select Selectio...
2020-10-11 17:54:26
184
原创 Python一键重命名 2020-09-05
import osif __name__ == '__main__': src_path = 'D:\math' list_path = os.listdir(src_path) for old_name in list_path: old_name = os.path.join(src_path, old_name) print('old_name:', old_name) new_name = src_path + '/' + ...
2020-09-05 22:18:43
119
原创 删除与排序（排序待优化）
Sub 删除精简版()'' Macro3 Macro'剔除不必要：精简版 5-22'Columns("O:O").Select Selection.Copy Columns("S:S").Select ActiveSheet.Paste'以上用来留存交货日期Columns("BD:BD").Select Selection.Copy Columns("AM:AM").Select ActiveSheet.Paste'以上两步，用来留存小纸...
2020-05-28 15:16:06
474
原创 一键检索多行
Private Sub CommandButton1_Click()Application.ScreenUpdating = Falsel = Sheet2.[A65536].End(3).Rowm = [C65536].End(3).Rown = m - lRange("u" & m) = nRange("t" & m) = NowFor i = l To m Set rg = Sheet1.Range("C:C").Find(Cells(i, "C"), LookIn..
2020-05-28 15:13:35
188
原创 根据订单号查询并复制一行
Sub test()For j = 1 To 300 a = InputBox("请输入要筛选的订单尾号后回车：") If a = "" Then Exit Sub l = Len(a) Application.ScreenUpdating = False r = Sheet2.[C65536].End(3).Row n = 0 For i = 2 To [C65536].End(3).Row If Right(Ce...
2020-05-28 15:12:39
1224
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人