■対象セル内の情報
AあABいBCうCAえABおBCかCAきABくBCけC
■抽出したい文字
AとAの間の文字
BとBの間の文字
CとCの間の文字
■抽出後イメージ
→添付画像です
文字で説明するとなかなか伝わりづらいかと思うので画像を添付しました。
(当方、VBAコードは書けませんが、VBAを利用していただいても構いません)
わかりづらいようでしたらご質問頂けますと幸いです。
よろしくお願いします
まともなエラー処理はしておりませんが
こんな感じでいかがでしょうか。
Option Explicit Function Sandwich(ByVal strSrc As String, ByVal strWrap As String, ByVal intNum As Integer) As String If strWrap = "" Then Sandwich = CVErr(xlErrValue) Else intNum = intNum * 2 - 1 Do strSrc = Mid(strSrc, InStr(1, strSrc, strWrap) + Len(strWrap)) intNum = intNum - 1 Loop Until intNum = 0 Sandwich = Left(strSrc, InStr(strSrc, strWrap) - 1) End If End Function
セルB3に
=Sandwich($A$1,B$2,$A3)
とタイプして、それを他のセルに貼ればOKです。
コメント(1件)