() k = 1 Columns(A:B).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ G1:G2), CopyToRange:=Range(D1), Unique:=False Sub 定位() Sub Macro2() Sub 批量插入文本() s = 文本内容 s Dim s As String Dim FullName As String, rng As Range For Each rng In Range(a1)....