我在Excel中有一个单元格文本,如下所示
Cell A1:
Key1: Value1
Key2: Value2
Key3: Value3
Key Name4: Value4
Key5: Value5
现在我想提取Value4
,因为我知道它的关键是Key Name4
,是否有使用Excel公式的建议?
PS:我感兴趣的钥匙前面有一个空格
答案 0 :(得分:4)
假设您要搜索的键值位于=MID(A1,FIND(B4,A1)+LEN(B4)+2,IFERROR(FIND(CHAR(10),MID(A1,FIND(B4,A1)+LEN(B4)+2,LEN(A1))),LEN(A1)))
,则以下内容应该有效:
\InfyOm\Generator\InfyOmGeneratorServiceProvider::class,
\InfyOm\CoreTemplates\CoreTemplatesServiceProvider::class,
答案 1 :(得分:3)
这是另一个使用不区分大小写的SEARCH:
=TRIM(MID(A1,SEARCH(B2,A1)+LEN(B2)+1,IFERROR(FIND(CHAR(10),A1,SEARCH(B2,A1))-SEARCH(B2,A1)-LEN(B2),LEN(A1))))
答案 2 :(得分:2)
使用 A1 中的数据,在 B1 中输入:
=LEFT(MID(A1,FIND("Key Name4: ",A1)+10,9999),FIND("Key5",MID(A1,FIND("Key Name4: ",A1)+10,9999))-1)
答案 3 :(得分:0)
这就是我的VBA解决方案的工作原理:
这就是代码:
Option Explicit
Public Function TakeMeAValue(rngRange As Range, lngCounter As Long)
Application.Volatile
Dim lngStart As Long
Dim lngEnd As Long
Dim strWord As String: strWord = "Key"
Dim strWordToSearch As String
On Error GoTo TakeMeAValue_Error
strWordToSearch = CStr(strWord & lngCounter & ":")
lngStart = InStr(1, rngRange, strWordToSearch) + Len(strWordToSearch)
lngEnd = InStr(lngStart, rngRange, strWord & lngCounter + 1)
If lngEnd = 0 Then
lngEnd = Len(rngRange) + 1
End If
TakeMeAValue = Trim(Mid(rngRange, lngStart, (lngEnd - lngStart)))
Exit Function
TakeMeAValue_Error:
TakeMeAValue = err.Description
End Function