指定の文字列を含むセルのみ、左から60文字以上の文字列を削除したい。
今、次のようなデータがA列の1行目からズラリと並んでいるとします。
-----------------------------------------
aaa
bbb
ccc
【長い】abcdefgggggggggggggggggggggggggggh
ddd
eee
fff
・
・
・
・
・
-----------------------------------------
15000行ほどです。
ここにおきまして、上記のように“【長い】”という文字列を含むセルがいくつかあります。
そのセルだけを、“【長い】”という4文字分も含めまして、合計で左から60文字だけにしたいのです。
61文字以上の文字は削除したいのです。
関数およびマクロ等で効率的に処理する方法等、もしありましたらご教授いただきたい次第です。
よろしくお願い致します。
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する
ベストアンサー
-
a-kuma3
満足300pt
式でやるとしたら、こんな感じです。
=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)) -
a-kuma3その他の回答
-
きゃづみぃ
満足300pt
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
お二人ともありがとうございます。
a-kuma3さんもきゃづみぃさんもどちらもベストアンサーなのですが、一人しか選べないので、早く回答いただいたa-kuma3さんの方にさせていただきました。私は返事が遅くなったのにすみません・・・(^_^;)
きゃづみぃこの質問へのコメント
質問の情報
- 登録日時
- 2015-04-18 12:57:18
- 終了日時
- 2015-04-23 00:53:56
- 回答条件
- 1人5回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
経団連が夫婦別姓（選択的）を提言しました。政府は、配偶者控除の廃止を志向しているようです。結婚制度を…
匿名質問者
2
-
オススメのシェイバー教えてください！ 以下の条件に近いシェイバーはあるのでしょうか。 1.髭が濃いため深…
Ryoya391
-
０５７０ で始まる電話番号は、キャリアなどとの間でカケ放題などの契約をしていても、そのサービスは受け…匿名質問者1
-
友人の解答と自身の解答で異なります。教えて頂けないでしょうか。 C社株式は，３年後に平均で1,000円にな…匿名質問者3
-
僕の親は苛立っています。 「俺はネットの天才なのに、なんで通報されたり、アカウント凍結されたりするん…匿名質問者3
4