人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

EXCELで同一セル内に含まれる特定の文字列の間だけを複数セルに抽出するにはどうしたら良いでしょうか?

■対象セル内の情報
AあABいBCうCAえABおBCかCAきABくBCけC

■抽出したい文字
AとAの間の文字
BとBの間の文字
CとCの間の文字
■抽出後イメージ
→添付画像です


文字で説明するとなかなか伝わりづらいかと思うので画像を添付しました。
(当方、VBAコードは書けませんが、VBAを利用していただいても構いません)
わかりづらいようでしたらご質問頂けますと幸いです。
よろしくお願いします

1369398802
●拡大する


●質問者: 匿名質問者
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● 匿名回答2号

まともなエラー処理はしておりませんが
こんな感じでいかがでしょうか。

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です。

関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ