如何收集包含特定文本的单元格列表
How can I gather a list of cell contain a certain text
我需要在我的整个工作表中搜索某个词并填充一个列(在本例中为 B),其中包含 A 列中没有该特定词(在本例中为词 Photo
)的相同词。例如:
A B
1 Photo Leon | Leon
2 Video Raul | Kelie
3 Broadcast Noa |
4 Photo Kelie |
5 Video Carl |
6 Broadcast Eitan |
有人可以帮忙吗?
试试这个相当小的宏:
Sub FindPhoto()
Dim N As Long, i As Long
Dim ary, K As Long
N = Cells(Rows.Count, "A").End(xlUp).Row
K = 1
For i = 1 To N
v = Cells(i, "A").Text
If InStr(v, "Photo") > 0 Then
ary = Split(v, " ")
Cells(K, "B").Value = Trim(ary(1))
K = K + 1
End If
Next i
End Sub
请尝试(调整 A:A0
以适应):
=SUBSTITUTE(IFERROR(INDEX(A:A0,SMALL(IF(LEFT(A:A0,6)="Photo ",ROW(A:A0)),ROW(B1))),""),"Photo ","")
使用 Ctrl+Shift+Enter 输入并向下复制,直到出现第一个空白单元格。
您可能想用参数替换 Photo
。假设在 D1 中输入 Photo
而不是:
=SUBSTITUTE(IFERROR(INDEX(A:A0,SMALL(IF(LEFT(A:A0,LEN(D))=D,ROW(A:A0)),ROW(B1))),""),D,"")
我需要在我的整个工作表中搜索某个词并填充一个列(在本例中为 B),其中包含 A 列中没有该特定词(在本例中为词 Photo
)的相同词。例如:
A B
1 Photo Leon | Leon
2 Video Raul | Kelie
3 Broadcast Noa |
4 Photo Kelie |
5 Video Carl |
6 Broadcast Eitan |
有人可以帮忙吗?
试试这个相当小的宏:
Sub FindPhoto()
Dim N As Long, i As Long
Dim ary, K As Long
N = Cells(Rows.Count, "A").End(xlUp).Row
K = 1
For i = 1 To N
v = Cells(i, "A").Text
If InStr(v, "Photo") > 0 Then
ary = Split(v, " ")
Cells(K, "B").Value = Trim(ary(1))
K = K + 1
End If
Next i
End Sub
请尝试(调整 A:A0
以适应):
=SUBSTITUTE(IFERROR(INDEX(A:A0,SMALL(IF(LEFT(A:A0,6)="Photo ",ROW(A:A0)),ROW(B1))),""),"Photo ","")
使用 Ctrl+Shift+Enter 输入并向下复制,直到出现第一个空白单元格。
您可能想用参数替换 Photo
。假设在 D1 中输入 Photo
而不是:
=SUBSTITUTE(IFERROR(INDEX(A:A0,SMALL(IF(LEFT(A:A0,LEN(D))=D,ROW(A:A0)),ROW(B1))),""),D,"")