Question

我想从一个位置获取字符数，直到它到达使用VBA的空间

子测试（）将YourText变暗为字符串 YourText =“我的名字ismanu prasad” 单元格（1,1）.Value = Len（YourText）结束子

上面的代码将返回21作为输出。但是我的情况有点不同。我需要从上面的字符串中计算子字符串“manu”，输出应该是4

Answer 1

Sub Display4thWord()
Dim Space As String
Dim YourText As String
Dim Begin4thWord As Integer
Dim End4thWord As Integer

YourText = "The first message box display a value"
Space = " "
'Find begin of 4th word.
Begin4thWord = InStr(InStr(InStr(1, YourText, Space, vbBinaryCompare) + 1, YourText,    Space, vbBinaryCompare) + 1, YourText, Space, vbBinaryCompare)
'Find end of 4th word/begin of 5th word
End4thWord = InStr(Begin4thWord + 1, YourText, Space, vbBinaryCompare)
MsgBox (Begin4thWord)

'Display 4th word
MsgBox (Mid(YourText, Begin4thWord, End4thWord - Begin4thWord))
End Sub

您需要嵌入InStr函数并使用Mid函数。你满意吗？该解决方案具有将返回的单词的硬编号。

Answer 2

声明两个变量recordnocount＆amp; recordnocount .position是我们的价值

recordnocount = InStr（位置+ 20，文字，＆＃34;＆＃34;） recordnocount1 = recordnocount - （位置+20）

我们可以得到计数。

谢谢所有

从一个位置直到它到达使用VBA的空间的字符数

2 个答案: