[[20200616105736]]　『特定の文字以降を消す場合のアスタリスク(*)を用ａx（しんそつ）　ページの最後に飛ぶ

『特定の文字以降を消す場合のアスタリスク(*)を用いた置換の使い方(セル内に同一文字あり)』（しんそつ）

セル内の最後の特定文字を残しつつそれ以降を消す場合、どうすれば良いでしょうか？
関数ではなく置換とアスタリスクを用いたいです。

具体的には
Abc★def★ghi★jkl★gmn
となっており、４つ目の★以降を消したいです。
(Abc★def★ghi★jkl ←この形にしたいです。)

ご回答よろしくお願い致します。

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

何で関数は駄目？

 =SUBSTITUTE(TRIM(LEFT(SUBSTITUTE(A1,"★",REPT(" ",100)),400))," ","★")

マクロだとこんなのとか。置換もアスタリスクも使っていませんが。

 Sub test()
    Dim iDim As Variant
    iDim = Split(Range("A1"), "★")
    Range("B1") = iDim(0) & "★" & iDim(1) & "★" & iDim(2) & "★" & iDim(3)
 End Sub
（???） 2020/06/16(火) 12:02

 置換ではむりちゃいまっか？

 一応数式で別案っす。

 =LEFT(A1,FIND("☆",SUBSTITUTE(A1,"★","☆",4))-1)
（GobGob） 2020/06/16(火) 12:51

お返事が遅れてしまい申し訳ございません。
無事に解決しました！ありがとうございました！
（しんそつ） 2020/06/18(木) 09:12

コメント返信：

[ 一覧(最新更新順) ]

[[20200616105736]] 『特定の文字以降を消す場合のアスタリスク(*)を用ａx（しんそつ） ページの最後に飛ぶ

[[20200616105736]]　『特定の文字以降を消す場合のアスタリスク(*)を用ａx（しんそつ）　ページの最後に飛ぶ