![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Excel
Excel代码存储
hand191
这个作者很懒,什么都没留下…
展开
-
删除中文段落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 · 171 阅读 · 0 评论 -
删除与排序(排序待优化)
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 · 462 阅读 · 0 评论 -
一键检索多行
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 · 175 阅读 · 0 评论 -
根据订单号查询并复制一行
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 · 1192 阅读 · 0 评论