常用：excel 函数

excel 函数

=TEXTJOIN(",",,IFERROR(MATCH(TRIM(MID(SUBSTITUTE(C2,",",REPT(" ",15316)),ROW($1:$19)*99-98,99)),B$2:B$15316,),""))

TXT导出

Sub 写入()
Dim rn, rg, r As Range
Set Rng = Range("a1", [a1].End(xlDown))
For Each rg In Rng
Open ThisWorkbook.Path & "\" & rg.Value & ".txt" For Output As #1
For Each r In Range(rg, rg.End(xlToRight))
Print #1, r.Value,
Next r
Close #1
Next rg
End Sub

批量提取公式

=COUNTIF($U$2:$U$290,E5)

=SUBSTITUTE(C2,"alt="&CHAR(34)&CHAR(34),"alt="&CHAR(34)&B2&CHAR(34))

Sub 合并()
Dim arr, brr, crr, drr(1 To 65536)
Range("d2:d65536").Clear
a = Application.[a65536].End(xlUp).Row
b = Application.[c65536].End(xlUp).Row
arr = Range("a2:a" & a)
brr = Range("b2:b" & a)
crr = Range("c2:c" & b)
For c = 1 To b - 1
e = e + 1
For d = 1 To a - 1
If crr(c, 1) Like "*" & arr(d, 1) & "*" Then
drr(e) = drr(e) & brr(d, 1)
End If
Next
Next
Range("d2").Resize(e) = Application.Transpose(drr)
End Sub