Forum Discussion

Bartballon's avatar
Bartballon
Copper Contributor
Aug 31, 2021
Solved

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

 

 

  • Bartballon 

    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

  • SergeiBaklan's avatar
    SergeiBaklan
    Diamond Contributor

    Bartballon 

    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.

     

  • Bartballon 

    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)

    • Bartballon's avatar
      Bartballon
      Copper Contributor
      O M G, this is exactly what i'm looking for! You're amazing! !!

Resources