文字列が連続しているかどうか調べたいのですが、良い方法はないでしょうか?
ExcelVBAです。
例えば"abc12saaa"などと文字列があって、4文字以上同じ文字が連続したいるか、4文字以上順番になっている文字があるかを調べるにはどのような方法があるでしょうか。
順番になっている文字とは"abcde"とか"1234"のようなものです。
1文字ずつ取り出して比較したり、1文字ずつAsc関数で数値化すればできるとは思いますが、スマートな方法、既存の関数とかないでしょうか。
よろしくお願いします。
No.4ベストアンサー
- 回答日時:
単純に4文字以上連続した文字の有無を判定するだけで、連続部分の抽出等は行わない場合には、次の様な方法があります。
今仮に、文字列がA3セルに入力されているものとしますと、判定結果を表示させるセルに、次の数式を入力すると良いと思います。
=IF(SUMPRODUCT((SUBSTITUTE(A3,MID("abcdefghijklmnopqrstuvwxyz",ROW(B$1:B$23),4),)<>A3)*1)+SUMPRODUCT((SUBSTITUTE(A3,MID("0123456789",ROW(B$1:B$7),4),)<>A3)*1)>0,"有","無")
IF関数の論理式部分にある
SUMPRODUCT((SUBSTITUTE(A3,MID("abcdefghijklmnopqrstuvwxyz",ROW(B$1:B$23),4),)<>A3)*1)
の部分は、
abcdefghijklmnopqrstuvwxyz
という文字列の先頭から、毎回1文字ずつずらしながら、連続した4文字を取り出し、その取り出した文字列と同じ並び方になっている部分を、A3セルに入力されている文字列から削除した際に、A3セルに入力されている文字列とは異なる文字列となる場合が、何回あるのかをカウントする数式です。
同じく
SUMPRODUCT((SUBSTITUTE(A3,MID("0123456789",ROW(B$1:B$7),4),)<>A3)*1)
の部分は、
0123456789
という文字列の先頭から、毎回1文字ずつずらしながら、連続した4文字を取り出し、その取り出した文字列と同じ並び方になっている部分を、A3セルに入力されている文字列から削除した際に、A3セルに入力されている文字列とは異なる文字列となる場合が、何回あるのかをカウントする数式です。
尚、
abcdefghijklmnopqrstuvwxyz
は半角の小文字の文字列ですから、上記の数式のままでは、全角文字や大文字の場合には対応していませんが、
+SUMPRODUCT((SUBSTITUTE(A3,MID("ABCDEFGHIJKLMNOPQRSTUVWXYZ",ROW(B$1:B$23),4),)<>A3)*1)
という数式を付け加えれば、半角の大文字にも対応する様になりますし、
+SUMPRODUCT((SUBSTITUTE(A3,MID("abcdefghijklmnopqrstuvwxyz",ROW(B$1:B$23),4),)<>A3)*1)
という数式を付け加えれば、全角の小文字にも対応する様になります。
同様に
0123456789
も半角数字ですから、上記の数式は全角数字には対応していませんが、こちらも同様に全角数字の数式を付け加えれば良いわけです。
No.3
- 回答日時:
前から文字を切り取りながら判定するしかないと
思います。
関数とかないんじゃないかな。。。
ただ、私なら1文字づつではなく
「ab」をまづ切り取り、連続しているか調べます。
連続していれば、1文字追加して「abc」が連続しているかを調べます。
これを繰り返すと「abc1」の時点で連続ではなくなるので
「1」の文字列の位置からまた2文字取り出し。。。という感じではないでしょうか。
No.2
- 回答日時:
1文字ずつの判定が無難と思います。
"abc12saaa"から9文字
いきなり
"abc"と"12"と"saaa"からに分けることができるかといったら厳しいように思います。
"ab"、"abc"、"abc1"ときて、"abc"が並んでいたことが分かる。
"1"、"12"、"12s"ときて、"12"が並んでいたことが分かる。
こうしてみると文字の後から見るのがよいかもしれません。
"12s"から"12"となれば2回繰り返しで判定ができますし。
"1234"は4回繰り返しで判定ができますし。
スマートになるかどうかは、どのくらい規則性があるか、で
ほぼ決まるのでは?。
No.1
- 回答日時:
VBAにはInstr関数があります。
単語(文字列)が連続しているかなら
定数で、abc・・・xyzと1234567890と言う定数を定義して、その定数に対しその単語でInstrをかければ、結果が0でなければ、質問の状態があると言えるのではないでしょうか。
サイクリックに考えるなら、abc・・・xyzabc・・・xyzになるのかな。数字の方は12345678901234567890。0が先頭か最後が適当かは考えてください。
単語でなく、文字列の1部でそれを調べるなら(注)、数字や英字の連続する範囲の文字列を切り出して、それの各々について前記を繰り返せば良いのでは。
「数字や英字の連続する範囲の文字列を切り出」すのが、1文字ごとの判別以外にはよい方法が無いかもしれないが。Regexp(正規表現)を使えば、考え方は少しはすっきりするかもしれないが、全体的には、プリミチブな方法と比べてあまり少ない行数にならないかも。
参考 http://codezine.jp/article/detail/1655
なおエクセル関数ではぴったりのものは無いと思う。
(注)abc12saaaならabcと12とsaaaに分けて、それぞれで、「連続」を考えるようなこと
この回答への補足
ご回答ありがとうございます。
Instr関数は指定した文字列(Aとします)内に、指定した文字列(Bとします)があるかないかがわかるのだと思います。
Aの指定はよいのですが、Bのほうがちょっと違います。
同一文字がN個連続する、あるいは連続した文字がN個続くかのチェックですので、"AAAA"でも"BBBB"でも"CCCC"でもチェックしなければなりません。さらに、"BCDE"でも"CDEF"でも該当することになります。ですのでInstr関数では無理なのではないでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Java Java 南京錠 2 2023/02/04 11:46
- Excel(エクセル) LEFT関数で文字数を指定しないで取りだす方法 7 2023/06/30 09:49
- その他(プログラミング・Web制作) 2つのテキストファイルを比べて文字列を特定する方法を教えて下さい 5 2022/05/01 15:22
- Excel(エクセル) Excelの数字(文字列)合計について あるデータをダウンロードすると、数字データが全て文字列になっ 4 2022/09/26 21:21
- Excel(エクセル) Excelの文字列を数字に変換する方法について 6 2023/07/31 21:18
- Visual Basic(VBA) 違う文字のみ色を塗る方法がわかりません。。 G列とH列のに文字が入っています。 例えばG5とH5の文 3 2022/06/03 17:13
- フリーソフト フォルダ、ファイル名の一括変換について 3 2023/03/16 09:23
- PostgreSQL 数値が定期的にあらわれる文字列から、いくつめに出現した数値が指定して切り出したい 1 2023/06/08 13:12
- C言語・C++・C# C言語で 英文字のみからなる文字列、”Radar”、”WasItACatISaw”、”a”、””(空 5 2022/12/20 15:17
- Excel(エクセル) Excelでの検索結果を含む行だけを表示させたい 5 2023/03/10 17:08
このQ&Aを見た人はこんなQ&Aも見ています
-
風水の観点で選ぶ観葉植物とは?置き場所や上げたい運気ごとの注意点を紹介!
観葉植物で運気をアップするコツを、風水デザイン1級建築士の福島昌彦さんに伺った。
-
VBAで連続した文字列を判定する方法
Visual Basic(VBA)
-
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
-
4
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
5
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
6
Excel上でのデータ数字が連番であることを確認する方法を教えてくださ
その他(Microsoft Office)
-
7
配列の参照渡しで型が一致しません。
Visual Basic(VBA)
-
8
VBA 置換文字がみつからない時
Visual Basic(VBA)
-
9
ユーザーフォームのテキストボックスに前回入力した値を表示する Excel
Visual Basic(VBA)
-
10
連続する複数のセル値がすべて0であることを判定するマクロ
Visual Basic(VBA)
-
11
VBA:小数点以下の数字を取得できる関数は?
Visual Basic(VBA)
-
12
VBAコード記述に際して、コード全体を自動的にインデント付ける方法
Access(アクセス)
-
13
Excel マクロ VBA プロシージャが大きすぎます のエラー対処方法
Visual Basic(VBA)
-
14
VBAにてデータが数字か文字かを判定するには
Access(アクセス)
-
15
VBAで巨大なファイルの途中からの読み込み
Visual Basic(VBA)
-
16
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
17
セル内の文字列が日本語か英語かを厳密に識別したい
Visual Basic(VBA)
-
18
メッセージボックスを前面に表示させるには?
Visual Basic(VBA)
-
19
EXCEL VBAで、セルの文字列の前後に文字を入力する方法は?
その他(Microsoft Office)
-
20
【EXCEL】連続データの個数を抽出する方法を御教授ください
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【ExcelVBA】値を変更しながら...
-
VBAで大量のファイルをシート名...
-
VBA 何かしら文字が入っていたら
-
【マクロ】1つのマクロの中に...
-
VBA 別ブックからコピペしたい...
-
VBAを使用した時間管理
-
Excelのマクロでワードのテキス...
-
【PowerPoint VBA】緑色の文字...
-
ExcelのVBAコードについて教え...
-
2つのマクロでチェックボックス...
-
VB.net(VB)で、フォームにExcel...
-
FileCopy時のエラー
-
VBA ユーザーフォーム ボタンク...
-
エクセルについて
-
Vba SelStart、SelLen教えてく...
-
VBAで各列の"+"と"o"の合計数を...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
Excel VBA 定義されたプロージ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBA 定義されたプロージ...
-
Excel-VBAのmsgBox()の不思議
-
【VBA】マクロの入ったファイル...
-
VBA 複数条件の分岐処理の上手...
-
現在のブックを閉じないで、マ...
-
VBAで各列の"+"と"o"の合計数を...
-
VBAに詳しい方教えてください。
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ユーザーフォームに別シートか...
-
エクセルのマクロについて教え...
-
ExcelVBA シート名を複数セルか...
-
エクセルのマクロについて教え...
-
VBA listBoxから
-
Excelのマクロについて教えてく...
-
エクセルのマクロについて教え...
おすすめ情報