質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

1998閲覧

EXCEL VBAで縦列の数字をグルーピングしたい

kazupop

総合スコア31

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2017/05/23 02:37

VBAでA列に縦に数値が並んでいます。
|A |B|C|
|0 |1|1|
|0.4|1|2|
|0 |2|1|
|0.4|2|2|
|0.5|2|3|
………

<B列の規則性>
B列はAが0で始まるグループを作成してNOを記入したいです。
A1はゼロなのでグループ名1を記入します。A2はゼロではないので、グループ1のままとして、A3はゼロなので次のグループ名2を記入します。

<C列の規則性>
B列が同じグループの中で順番を割り振ります。C1はB列の1グループの中で1番目のため、1を入力します。C3は新しいグループとなるので1を入力します。

A列の数が不特定の場合B列とC列を記入するプログラムを作成したいです。
Forを使うイメージかと思うのですが、イメージできずアドバイスをいただけませんか?

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

答えを書いてしまうのは不本意ですが、コードを見た方が理解が早いかと思うので、参考にしてください。

VBA

1 Dim cntB As Long 2 Dim cntC As Long 3 cntB = 0 4 cntC = 0 5 For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row 6 If Cells(r, 1).Value = 0 Then 7 cntB = cntB + 1 8 cntC = 0 9 End If 10 cntC = cntC + 1 11 Cells(r, 2).Value = cntB 12 Cells(r, 3).Value = cntC 13 Next

投稿2017/05/23 02:52

ttyp03

総合スコア16996

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問