|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub pipei()
Dim ar As Variant, br As Variant
Dim i As Integer
With Sheets("关键词")
r = .Cells(Rows.Count, 1).End(xlUp).Row
ar = .Range("a1:a" & r)
End With
With Sheets("AAAA")
.Range("a1").CurrentRegion.Offset(1, 1) = Empty
br = .Range("a1").CurrentRegion
For i = 2 To UBound(br)
y = 2
For s = 2 To UBound(ar)
If InStr(br(i, 1), ar(s, 1)) > 0 Then
br(i, y) = ar(s, 1)
y = y + 1
End If
Next s
Next i
.Range("a1").CurrentRegion = br
End With
MsgBox "ok!"
End Sub
|
评分
-
1
查看全部评分
-
|