[[20170506095417]]　『件数を数えるいい方法は？』（noro）　ページの最後に飛ぶ

『件数を数えるいい方法は？』（noro）

セルＡ１からたてにデータが並んでいますが
「■文字列■」から次の「■文字列■」までの間の件数を
数えて■文字列■の末尾の※のように表記したいのですが
一括して表記できるいい方法はありますでしょうか
(SS001～SS188は任意の整理番号)

■文字列■※90
SS001文字列
SS002文字列
SS003文字列
～
SS090文字列
■文字列■※50
SS091文字列
SS092文字列
SS093文字列
～
SS140文字列
■文字列■※48
SS141文字列
SS142文字列
SS143文字列
～
SS188文字列

■文字列■の位置はデータ資料により一定ではありません。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

マクロを使ってもよいですか？

（マナ） 2017/05/06(土) 10:16

はい、マクロでいいです。
（noro） 2017/05/06(土) 10:33

こんな感じで

 Option Explicit

 Sub test()
    Dim i As Long
    Dim n As Long
    Dim s As String

    Columns("A").Replace "■※*", "■"

    For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
        s = Cells(i, "A").Value
        If s <> "" Then
            If s Like "■*■" Then
                Cells(i, "A").Value = s & "※" & n
                n = 0
            Else
                n = n + 1
            End If
        End If
    Next

 End Sub

（マナ） 2017/05/06(土) 10:51

スムースにできあがりました。あまり簡単にできたので今までタイトルごとに数えていたのがうそのようです。
どうもありがとうございました。
なお便乗で恐縮ですが、この「■文字列■※48」の行だけ集めて目次みたいにしたいのですがこのデータの上部または下欄に記述できますでしょうか。
（noro） 2017/05/06(土) 11:19

＞目次みたいにしたい

イメージできませんが、推測で。
オートフィルタで抽出し、それを好きな場所にコピーすればよいのでは。

（マナ） 2017/05/06(土) 11:34

そうですね。並べ替えでもできました。重ねてありがとうございました。
（noro） 2017/05/06(土) 11:50

コメント返信：

[ 一覧(最新更新順) ]

[[20170506095417]] 『件数を数えるいい方法は？』（noro） ページの最後に飛ぶ

[[20170506095417]]　『件数を数えるいい方法は？』（noro）　ページの最後に飛ぶ