※注記の数を数えて連番をつけるマクロの例 Excel VBA

Sub ※注記の数を数えて連番をつけるよ()
Application.ScreenUpdating = False
Dim myRng As Range
Dim myStr, newStr As String
Dim i As Integer
Dim a As Long

For Each myRng In Selection
newStr = "" 'ここで初期化
a = 1 'aを1に戻す
For i = 1 To Len(myRng)
myStr = Mid(myRng.Value, i, 1)
If myStr = "※" Then
newStr = newStr & myStr & a
a = a + 1
Else
newStr = newStr & myStr
End If
Next i
myRng.Value = newStr
Next myRng
Application.ScreenUpdating = True
End Sub
・・・・・・・・・・・・・・・・・
詳しい説明はnoteにあります。よかったらみてください
https://note.com/makotoym/n/nf9ffc7fa...
・・・・・・・・・・・・・・・・・
利用しているExcel：
Microsoft® Excel® for Microsoft 365 MSO
(バージョン 2311 ビルド 16.0.17029.20028) 64 ビット

動画編集アプリ：
Microsoft　Clipchamp

注意事項：
このやり方は、動画公開時点での情報です。
今後のExcel機能追加や変更などで、やり方が異なる場合や
関数の仕組みが変更される場合があります。
ご自分の環境にあったやり方で調整してください。

補足：
なるべくYouTubeに公開されていない動画を作ります。
こんなこと教えてほしい等、ご要望がありましたら
お気軽のコメントください。参考にします。