質問: エクセルで同じ文字が3連続している回数の数え方 エクセルの同じ列内で、同じ文字が3連続出現する回数を調べたいのですが、どうしたらできるでしょうか? 例えば、a列に○、△、□、×のどれかが入力されていて、a3~a5に×、同様にa17~a19に×が入力されている場合、×が3連続で出現している回数は2回ですが、このような回数を調べる場合はどのようにしたらよいのでしょうか?
回答: こんばんは! 何とか関数で!と思ったのですが、 4個以上連続の除外が面倒なのでvbaでやってみました。 画面左下の操作したいsheet見出し上で右クリック → コードの表示 → vbe画面のカーソルが点滅しているところに ↓のコードをコピー& ペースト → excel画面に戻り(vbe画面を閉じて) マクロを実行してみてください。 (alt+f8キー → マクロ → マクロ実行です) sub sample1() 'この行から// dim i as long, k as long, cnt as long for i = 1 to cells(rows.count, "a").end(xlup).row if cells(i, "a") = cells(i + 1, "a") then k = i + 1 do while cells(k, "a") = cells(i, "a") k = k + 1 loop if k - i = 3 then cnt = cnt + 1 end if i = k - 1 end if next i msgbox cnt end sub 'この行まで// こんな感じではどうでしょうか?m(_ _)m