- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：文章内の指定した位置にセル内を差し込む）
文章内にアコーディオンタグを挿入する方法
このQ&Aのポイント
- アコーディオンタグを使用して、文章の特定の位置にセル内を差し込む方法について説明します。
- AL列に記入された文章の中で共通しているアコーディオンタグ内にAM列のセル内を挿入する方法について詳しく説明します。
- 隣のセルにあるAM列の文章をアコーディオンタグ内に挿入する方法をご紹介します。
- mute_low
- お礼率2% (59/2233)
- Excel（エクセル）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
AL各行のセルの文章中に</summary>が一カ所しかないのでしたら以下で試してみてください。 Sub Test() Dim i As Long Dim tmp As Variant For i = 1 To 6000 If Cells(i, "AL").Value <> "" Then tmp = Split(Cells(i, "AL").Value, "</summary>") Cells(i, "AL").Value = tmp(0) & "</summary>" & vbLf & Cells(i, "AM").Value & tmp(1) End If Next End Sub
お礼
できました！どうもありがとうございました！