Aug 31 2021 02:10 AM
Hello everyone,
I'm posting on this forum because I ran into a problem. I am currently preparing an excel list for my boss and my boss told me that in an excel column he would like to have all the text within a cell in bullet points. I was wondering if there is a very fast and efficient way here as in word. Otherwise I always have to do "Alt+7" to place a bullet point •.
Now I have already tried to work with custom formats, but that always succeeds on 1 cell. My intention is to put multiple bullet points in one cell.
If anyone has any idea you would be a hero! It is a decent list where bullet points should occur.
Thanks in advance!
Bart
Aug 31 2021 03:18 AM
SolutionUnlike Word, Excel is not a real text processor. It doesn't have built-in support for inserting bullets.
So you'll have to insert a bullet in front of each line in a cell manually. You could insert one bullet, and copy the bullet and the space after it. You can then paste it in front of each line.
Or you could copy the following macro into a module in the Visual Basic Editor:
Sub AddBullets()
Dim rng As Range
Dim v() As String
Dim i As Long
Application.ScreenUpdating = False
For Each rng In Selection
v = Split(rng.Value, vbLf)
For i = 0 To UBound(v)
If Left(v(i), 1) <> Chr(149) Then
v(i) = Chr(149) & " " & v(i)
End If
Next i
rng.Value = Join(v, vbLf)
Next rng
Application.ScreenUpdating = True
End Sub
You can assign the macro to a Quick Access Toolbar button and/or a custom keyboard shortcut.
Save the workbook as a macro-enabled workbook and make sure that you allow macros when you open it.
If you want to use the macro in multiple workbooks, save it in your personal macro workbook PERSONAL.XLSB.
(See Excel Personal Macro Workbook | Save & Use Macros in All Workbooks for info about PERSONAL.XLSB)
Aug 31 2021 03:23 AM
You may select the range and apply custom number format as
and apply it by Format Painter after that. Or create the style with such formatting.
Aug 31 2021 03:26 AM
Hi Sergei,
That custom format will only display a bullet in the first line of a cell. Bart wants to display a bullet in front of each line in a multi-line cell.
Aug 31 2021 03:47 AM
@Hans Vogelaar , sorry, I missed that. Thank you for the comment.
Aug 31 2021 04:10 AM
Aug 31 2021 03:18 AM
SolutionUnlike Word, Excel is not a real text processor. It doesn't have built-in support for inserting bullets.
So you'll have to insert a bullet in front of each line in a cell manually. You could insert one bullet, and copy the bullet and the space after it. You can then paste it in front of each line.
Or you could copy the following macro into a module in the Visual Basic Editor:
Sub AddBullets()
Dim rng As Range
Dim v() As String
Dim i As Long
Application.ScreenUpdating = False
For Each rng In Selection
v = Split(rng.Value, vbLf)
For i = 0 To UBound(v)
If Left(v(i), 1) <> Chr(149) Then
v(i) = Chr(149) & " " & v(i)
End If
Next i
rng.Value = Join(v, vbLf)
Next rng
Application.ScreenUpdating = True
End Sub
You can assign the macro to a Quick Access Toolbar button and/or a custom keyboard shortcut.
Save the workbook as a macro-enabled workbook and make sure that you allow macros when you open it.
If you want to use the macro in multiple workbooks, save it in your personal macro workbook PERSONAL.XLSB.
(See Excel Personal Macro Workbook | Save & Use Macros in All Workbooks for info about PERSONAL.XLSB)