たびたびすみません。マクロについてです。 ＜やりたいこと＞ ①マクロを実行すると、B2：B100のセル内の文字が図のように箇条書き風になるようにしたい。 ＜やりたいことの条件＞
たびたびすみません。マクロについてです。 ＜やりたいこと＞ ①マクロを実行すると、B2：B100のセル内の文字が図のように箇条書き風になるようにしたい。 ＜やりたいことの条件＞ ①改行したら、次の文頭に「○ 」と入力される（箇条書きと同じ） セルごとに箇条書き風にすることはできたのですが、セル内で箇条書き風にすることができませんでした。。ご教授お願いします！
Visual Basic | Excel・47閲覧・50
ベストアンサー
これでどうでしょうか Dim i As Long For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row If Cells(i, 2) <> "" Then Cells(i, 2) = "○ " & Replace(Cells(i, 2), vbLf, vbLf & "○ ") End If Next
ありがとうございました！ 伝わりづらくて申し訳ありません。 文章を追加してもう一度実行すると、○ が増えてしまいます。 すでに、○ がある文章には、○ をつけないようにすることは可能ですか？
質問者からのお礼コメント
できました！！！ ありがとうございました！！
お礼日時：1/27 13:50
