Dec 29 2020 08:15 AM
Select the cells, then run this macro:
Sub AddBullets()
Dim Cell As Range
Application.ScreenUpdating = False
Selection.Replace What:=vbLf, Replacement:=vbLf & "• ", LookAt:=xlPart
For Each Cell In Selection
If Cell.Value <> "" Then
Cell.Value = "• " & Cell.Value
End If
Next Cell
Application.ScreenUpdating = True
End Sub
Dec 29 2020 08:33 AM - edited Dec 29 2020 08:43 AM
Dec 29 2020 08:57 AM - edited Dec 29 2020 09:00 AM
A custom number format
"● "@
could also give a useful visual effect.
Edit: I prepared this post but forgot to click 'Post'. I should have checked before sending :(