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

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

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

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

解決済

VBAで、別列に記載の項目ごとの連番を振りたい

amatsuno
amatsuno

総合スコア54

VBA

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

3回答

0評価

0クリップ

415閲覧

投稿2021/12/28 04:35

#VBA(Excel)で、別列に記載の項目ごとに連番を振りたい

##目的:Excelの同一シート上で、A列で同一のものがある場合、B列に連番を付与させたい

###詳細
Excelのシート「dataA」に以下記載があります
(最上段は列名)

####元
AAA , BBB , CCC , DDD
OK1 , (null) , TEST11 , JP
OK1 , (null) , TEST22 , UN
OK1 , (null) , TEST33 , CN
OK2 , (null) , TEST44 , IK
OK2 , (null) , TEST55 , FR
OK3 , (null) , TEST66 , GM
OK3 , (null) , TEST77 , TR
OK3 , (null) , TEST88 , NC
OK4 , (null) , TEST99 , EG

ここで、
「AAA列が同じ値の際にBBB列に連番を付与したい」と思っています
AAA列はソート済みの状態です

####狙っている結果
AAA , BBB , CCC , DDD
OK1 , 1 , TEST11 , JP
OK1 , 2 , TEST22 , UN
OK1 , 3 , TEST33 , CN
OK2 , 1 , TEST44 , IK
OK2 , 2 , TEST55 , FR
OK3 , 1 , TEST66 , GM
OK3 , 2 , TEST77 , TR
OK3 , 3 , TEST88 , NC
OK4 , 1 , TEST99 , EG

###ここまで
連番を入れる方法は以下で可能と思われるのですが、
ここから先、どのように作成すればよいか、お分かりになられる方、
ご教授願えませんでしょうか

Dim i, STG, SYN STG = 2 STN = 1 For i = STG To Cells(Rows.Count, 2).End(xlUp).Row Cells(i, 2).Value = STN STN = STN + 1 Next

良い質問の評価を上げる

以下のような質問は評価を上げましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

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

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

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

teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

  • プログラミングに関係のない質問
  • やってほしいことだけを記載した丸投げの質問
  • 問題・課題が含まれていない質問
  • 意図的に内容が抹消された質問
  • 過去に投稿した質問と同じ内容の質問
  • 広告と受け取られるような投稿

評価を下げると、トップページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

まだ回答がついていません

会員登録して回答してみよう

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

ただいまの回答率
87.20%

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

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

質問する

関連した質問

同じタグがついた質問を見る

VBA

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