Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Excel 2016)
連続するデータ
投稿日時: 21/11/18 15:16:27
投稿者: shamo

お世話になります。
 
   A     B
2021年10月01日 1
2021年10月01日 1
2021年10月05日 2
2021年10月06日 3
2021年10月06日 3
2021年10月06日 3
2021年10月07日 4
2021年10月07日 4
2021年10月08日 5
2021年10月11日 6
2021年10月11日 6
2021年10月11日 6
2021年10月12日 7
 
A列に日付が昇順で入っています。
B列に下記の条件で値を入れたいのですがどうすればいいでしょうか。
ご教授して頂けると幸いです<(_ _)>
・数字は1から1づつ増える
・日付が同じ場合は同じ値が入る
・日付が違う場合は1増えた値が入る

回答
投稿日時: 21/11/18 15:56:38
投稿者: simple

B1セルに 1
B2セルに =IF(A2=A1,B1,B1+1)
とするのが簡単でしょう。
 
VBAで書き込みすることももちろんできます。
トライしてみてください。

投稿日時: 21/11/18 16:06:27
投稿者: shamo

レスありがとうございます
処理の一部なので出来ればVBAで処理したいと思っています。
 
下記コードで今考えているんですが
値が変わる時、1増やす時の処理で悩んでおります・・
 
buf = Application.InputBox("最初の番号入力", Type:=1)
With Worksheets(SN)
 .Cells(1, "B") = buf
      For i = 2 To RL
         If Cells(i, "A") = Cells(i - 1, "A") Then
             .Cells(i, "B") = buf
            Else
             .Cells(i, "B") = buf + 1
         End If
         buf = buf + 1
      Next i
End With

投稿日時: 21/11/18 16:16:39
投稿者: shamo

すいません。
ちょっと閃いたので一旦解決済みにさせて頂きます。
 
ありがとうございました<(_ _)>