kenmituo https://blog.hatena.ne.jp/kenmituo/ kenmituoの日記 https://kenmituo.hatenadiary.org/ VBA 先頭行はラベル、左から8番目のセルの中身は、、、＜元のセルの中身＞ Cells(n, 8) テキストA テキストB テキストC - 抜き出したいデータ（複数行） - テキストD＜変更後＞ Cells(n,8) テキストA テキストB テキストC テキストDCells(n,10) 抜き出したいデータ（複数行）こんな感じにしたい。 出来たのが、こんなマクロになった。 Sub move_items() Dim i As Integer Cells(1, 10) = "抜き出したデータ" For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row 'セルの値を改行で… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fkenmituo.hatenadiary.org%2Fentry%2F20170425%2F1493104506" title="Excelマクロ、記号で括られたデータを別のセルに抜き出す - kenmituoの日記" 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 2017-04-25 16:15:06 rich https://kenmituo.hatenadiary.org/entry/20170425/1493104506 1.0 100%