- ベストアンサー
エクセルで連続している数字の分類をする方法
- エクセルで連続している数字のセット個数を数える方法や、特定の数字の連続数を別のものとして数える方法についてアドバイスをお願いします。
- 質問者は、A列の2が連続している2連続と、B列の5が3連続しているものの数を別々にカウントし、かぶらないようにしたいと考えています。
- 現在使っている式では、特定の数字が連続している場合に数える数が2つ増えてしまう問題があり、解決策を求めています。
- ATAMAbakanako
- お礼率100% (65/65)
- Excel（エクセル）
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
その他の回答 (1)
- imogasi
- ベストアンサー率27% (4737/17069)
小生は、関数式に詳しいわけではないが、関数式だけでは、ずいぶん複雑（長くかつ関数を３つ以上組み合わせた式）になるのではないか。回答が出ても質問者にも、理解に時間がかかるような式だろう。 だから初めから関数利用は考えてないが、簡潔な式の回答にでるかな？ ーー そこで小生はＶＢＡでやってみた。 また他の仕組みで簡潔なやり方やＶＢＡコードで回答が出れば素晴らしいと思うが、期待薄。小生が知らないだけのことかもしれないが。 ーー 下記ロジックは人によっては難しいと感じるだろうが。 ＶＢＡは、知らないと毛嫌いする人も多いので、その場合は無視して。 例データ 基データー 質問のデータ例を利用。 Ｓｈｅｅｔ１ Ａ２：Ｃ５ 2 3 5 ＜－－第２行目から 2 5 4 1 5 4 5 5 2 ーーー ＶＢＡコードで 標準モジュールに Sub test01() Worksheets("Sheet2").Cells.Clear 'Exit Sub lc = Range("ax2").End(xlToLeft).Column '最右列 MsgBox lc lr = Range("a1000").End(xlUp).Row '最下行 MsgBox lr '---- For c = 1 To lc '各列列繰り返し rn = Cells(2, c) For r = 2 To lr '行繰り返し If Cells(r, c) = Cells(r + 1, c) Then '---同じ場合 rn = rn & Cells(r, c) Else '--違う場合 If Len(rn) > 1 Then MsgBox rn & "A" '連の最終結果表示 rx = Worksheets("Sheet2").Cells(1000, Len(rn)).End(xlUp).Row + 1 Worksheets("Sheet2").Cells(rx, Len(rn) - 1) = rn End If rn = "" '連を消去 '次の行の値を設定 rn = rn & Cells(r + 1, c) End If Next r '--行の最下データ処理後 rn = "" '連を消去 Next c End Sub 難しいコードは一切ない。処理ロジックだけ。こういうやり方になれない人もいるとは思う。 結果 Ｓｈｅｅｔ２ Ａ２：Ｂ３ 22 555 44 ーー データ例を作るのが邪魔臭いので、手抜きします。 データ例を増やしてやってみて。 ーー Ｓｈｅｅｔ２では重複文字数別に並べている。 手抜きのため同じパターンも重複で出している。操作のフィルタオプションやソートで、必要なら重複分を取り除いてください。
お礼
ご回答ありがとうございます。 まだVBAをはじめたばかりで、理解が追い付かないのですが、これは別シートに連続した部分を取り出して、それを別シートでカウントをするようにする。 というものですよね？ まだ時間はかかると思いますが、試してみます！ ご回答ありがとうございました。
お礼
ありがとうございます。 あとだしで申し訳ありません。 まだこちらの返答を見させていただいて、実践はしてないのですが、A列に２連続と３連続がある場合も大丈夫でしょうか？
補足
申し訳ありません。 画像を上げて細くしようと思っていたのですが、途中からは上がらないようなので、もう一度質問しなおします。 大変申し訳ございませんが、そちらを見ていただけると、大変助かります。