指定の文字列を含むｾﾙのみ､左から60文字以上の文字列を削除したい｡今､次のようなﾃﾞｰﾀがA列の1行目からｽﾞﾗﾘと並んでいるとします｡ ----------------------------…

人力検索はてな

ﾓﾊﾞｲﾙ版を表示しています｡PC版はこちら

指定の文字列を含むｾﾙのみ､左から60文字以上の文字列を削除したい｡
今､次のようなﾃﾞｰﾀがA列の1行目からｽﾞﾗﾘと並んでいるとします｡

-----------------------------------------
aaa
bbb
ccc
【長い】abcdefgggggggggggggggggggggggggggh
ddd
eee
fff
･
･
･
･
･
-----------------------------------------

15000行ほどです｡
ここにおきまして､上記のように“【長い】”という文字列を含むｾﾙがいくつかあります｡
そのｾﾙだけを､“【長い】”という4文字分も含めまして､合計で左から60文字だけにしたいのです｡
61文字以上の文字は削除したいのです｡
関数およびﾏｸﾛ等で効率的に処理する方法等､もしありましたらご教授いただきたい次第です｡
よろしくお願い致します｡

●質問者: moon-fondu
●ｶﾃｺﾞﾘ:ｺﾝﾋﾟｭｰﾀ学習･教育
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

▽1 ● a-kuma3
●300ﾎﾟｲﾝﾄ

ﾍﾞｽﾄｱﾝｻｰ

式でやるとしたら､こんな感じです｡

=IF(ISERROR(FIND("【長い】",A1)),A1,LEFT(A1,60))

もしくは､

=IF(ISERROR(FIND("【長い】",A1)),A1,LEFTB(A1,60))

最初の LEFT は文字数｡半角英数もひらがな漢字も1文字です｡
二番目の LEFTB はﾊﾞｲﾄ数｡
全角だけだと30文字になります｡

"【長い】" の文字の判定が要らないのであれば､LEFT もしくは LEFTB だけで OK です｡
60文字未満はそのまま表示されます｡

=LEFT(A1,60)

追記です｡

空白ｾﾙの場合は｢0｣が返されるようですが｡
この空白ｾﾙも､空白ｾﾙのまま返す､ということはできないでしょうか？

式を､以下のようにしてください｡

=IF(ISERROR(FIND("【長い】",A1)),IF(ISBLANK(A1),"",A1),LEFT(A1,20))

moon-fonduさんのｺﾒﾝﾄ
ありがとうございます､うまくいきました！空白ｾﾙの場合は｢0｣が返されるようですが｡この空白ｾﾙも､空白ｾﾙのまま返す､ということはできないでしょうか？

a-kuma3さんのｺﾒﾝﾄ
>> 空白ｾﾙの場合は｢0｣が返されるようですが｡この空白ｾﾙも､空白ｾﾙのまま返す､ということはできないでしょうか？ << 回答に追記しました｡

moon-fonduさんのｺﾒﾝﾄ
ありがとうございます､うまくいきました！

▽2 ● きゃづみぃ
●300ﾎﾟｲﾝﾄ

Sub main()
 Dim a As Long
 For a = 1 To Rows.Count
 If Cells(a, "A") = "" Then Exit For
 If InStr(Cells(a, "A"), "【長い】") > 0 Then
 Cells(a, "A") = Left(Cells(a, "A"), 60)
 End If
 Next a
End Sub

moon-fonduさんのｺﾒﾝﾄ
標準ﾓｼﾞｭｰﾙでやってみたのですが､なぜかうまく稼働しませんでした･･･｡

きゃづみぃさんのｺﾒﾝﾄ
対象のｼｰﾄのところでやればいいです｡

moon-fonduさんのｺﾒﾝﾄ
すごいです､60文字以上がﾊﾟｯと消えました！ありがとうございます｡

● 質問者から

お二人ともありがとうございます｡
a-kuma3さんもきゃづみぃさんもどちらもﾍﾞｽﾄｱﾝｻｰなのですが､一人しか選べないので､早く回答いただいたa-kuma3さんの方にさせていただきました｡私は返事が遅くなったのにすみません･･･(^_^;)