Forum Discussion
multiple bullet points in an excel cell
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
Unlike 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)
6 Replies
- SergeiBaklanDiamond Contributor
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.
- BartballonCopper ContributorThx for the response!
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.
- SergeiBaklanDiamond Contributor
HansVogelaar , sorry, I missed that. Thank you for the comment.
Unlike 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)
- BartballonCopper ContributorO M G, this is exactly what i'm looking for! You're amazing! !!