「A1に「みかんぶどうりんご」と入力し、Instr関数とLeft関数を使ってA1から「ぶどう」を抽出してA2に表示する。」のやり方を教えてほしい。

Question

「A1に「みかんぶどうりんご」と入力し、Instr関数とLeft関数を使ってA1から「ぶどう」を抽出してA2に表示する。」を教えてほしい。

そもそもできるのか？
Mid関数でならできると思うが…
調べているが、left関数では途中から文字取得はできないと思う。

試したこと。

Sub 関数Instr_left()
    Dim N As String
    Dim str As String
    
    Range("a1") = "みかんぶどうりんご"
    
    N = Range("a1")
    
    str = InStr(N, "ぶどう")
    
    
    Range("a2") = Left(N, str)
    

End Sub

Comments

[sazi]

Instr()で、「ぶどう」を含んでいるかどうかが分かるので、抽出する必要は無いと思うのですが？
クイズですか？

[jinoji]

たぶん無理難題をいう将軍様がいらっしゃるのでしょう。
「このはしわたるべからず」的な。

Answer 1

Left関数になぜこだわるのかな？

Sub 関数_left()

Dim 文字数 As Long

Dim str(1) As String

Dim N As String

 Range("a1") = "みかんぶどうりんご"
 
 N = Range("a1")
 
 文字数 = Len("ぶどう")
 
  str(0) = Mid(N, InStrRev(N, "ぶどう"))
  
   str(1) = Left(str(0), 文字数)
   
  MsgBox str(1)

End Sub```

Answer 2

    Dim orange As Range
    Dim grape As GroupShapes
    Dim apple As Application
    
    Set orange = Range("A1")
    orange.Value = "みかんぶどうりんご"
    If InStr(orange.Value, "ぶどう") > 0 Then orange.Offset(1).Value = Left("ぶどう", 3)

Answer 3

おっしゃる通り、Mid関数だと思います。

Range("A2") = Mid(Range("A1"), InStr(Range("A1"), "ぶどう"), Len("ぶどう"))

Answer 4

Replace関数も使って実現する方法です。

Sub Instr_Left_Replace()
    Dim Moji As String
    Dim nn As Integer, mm As Integer

    Moji = "みかんぶどうりんご"
    
    nn = InStr(1, Moji, "ぶどう")
    mm = Len("ぶどう")

    Range("A1").Value = Moji
    Range("A2").Value = Left(Replace(Moji, Left(Moji, nn - 1), ""), mm)
End Sub