SALINGER https://blog.hatena.ne.jp/SALINGER/ SALINGERの日記 https://salinger.hatenadiary.org/ http://q.hatena.ne.jp/1301453031 既に解決しているようなので作らないかなと思っていましたが、 なんか無理とか言ってる人がいたのでさくさくっと作っておきます。 A列が同じ数で並んでいるとは限らないのでそれにも対応しておきました。 数万行とかなら数式はナンセンスなんで、VBAの価値もあるか。 Sub Macro() Application.ScreenUpdating = False Dim i As Long Dim j As Long Dim k As Long Dim f As Boolean Dim h() As String Dim lastRow As … 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fsalinger.hatenadiary.org%2Fentry%2F20110330" title=" - SALINGERの日記" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2011-03-30 00:00:00 rich https://salinger.hatenadiary.org/entry/20110330 1.0 100%