Question

excel vba列查找内容并提取

列查找内容并提取

Answer 1

Sub s()
ceto = 2
t = Cells(Rows.Count, ceto).End(3)
n = Cells(Rows.Count, 11).End(3).Row
Set d = CreateObject("scripting.dictionary")
For i = 11 To 353
j = 1
Do While d.Count < 5
d(Cells(n - j, i).Text) = ""
j = j + 1
Loop
If d.exists(Cells(n, i).Text) Then
Cells(1, i) = t
End If
d.RemoveAll
Next
End Sub

追问

在第一单元插入内容
如单元有内容，继续插入内容

追答

Sub s()
ceto = 2
t = Cells(Rows.Count, ceto).End(3)
n = Cells(Rows.Count, 11).End(3).Row
Set d = CreateObject("scripting.dictionary")
For i = 11 To 353
j = 1
Do While d.Count < 5
d(Cells(n - j, i).Text) = ""
j = j + 1
Loop
If d.exists(Cells(n, i).Text) Then
Cells(1, i) = Cells(1, i) & t
End If
d.RemoveAll
Next
End Sub