How to Add Multiple Bullet Points in Excel Cell (5 Suitable Ways)

Bullet points are very common in MS Word. But in Excel, we do not have any built-in option to insert bullet points. It is very tricky to insert bullet points in Excel. But inserting multiple bullet points in a cell in Excel is very complex. This article will teach us how to insert multiple bullet points in a cell in Excel.

In this article, we will explain 5 different methods to insert multiple bullet points in a cell in Excel. We have multiple names in a single cell. We will add bullet points with each line of that cell.

1. Using Symbol Option to Add Multiple Bullet Points in an Excel Cell

We will add bullet points with each line in Excel using the symbol feature.

📌 Steps:

We add a column in the dataset to present data with bullet points.

Now, place the cursor on Cell C5.
Click on the Insert tab.
Press the Symbol option from the Symbols group.

Now, the Symbol window appears.
Choose the Bullet sign of Character code 2022.
Then, press the Insert button.

Finally, press Close.

We can see the bullet symbol on that cell.

Add the first name.

After that, add a line break by pressing Alt + Enter.

Add the bullet symbol and the rest of the names one by one.

Read More: How to Add Bullets in Excel Cell

2. Using a Keyboard Shortcut from a Numeric Keypad to Add Multiple Bullet Points

We will use a keyboard shortcut to add multiple bullet points in a cell. For this, we need to have a numeric keypad on the right side of our keyboard.

📌 Steps:

First, go to Cell C5.
Double-click the mouse right button.

Now, press Alt + 7.

We can see a bullet point is added here.

Add the first data after the bullet point.

We can see a line with a bullet point.

Now, add a line break by pressing Alt + Enter.

A new line started here.

Repeat the process of adding bullet points and add the rest of the lines.

3. Using CHAR Function to Add Multiple Bullet Points in Excel Cell

The CHAR function returns characters specified by the code number from the character set from your computer. In this section, we will insert bullet points using the CHAR function.

📌 Steps:

Go to Cell C5.
Put the formula below.

=CHAR(149)

Now, press the Enter button and look at the dataset.

A bullet point is added here.

Now, add the first data using the ampersand symbol in the existing formula. Formula becomes:

=CHAR(149)&" Jessica"

We can see the first data with the bullet point.

After that, we will add a line break using the CHAR function with the corresponding code of the line break. 10 is the code that stands for the line break.
So, the modified formula becomes.

=CHAR(149)&" Jessica"&CHAR(10)&CHAR(149)

And the result is here.

Similarly, we add all the data into the formula, which looks like this.

=CHAR(149)&" Jessica"&CHAR(10)&CHAR(149)&" Henderson"&CHAR(10)&CHAR(149)&" Aaron"&CHAR(10)&CHAR(149)&" Mitchel"&CHAR(10)&CHAR(149)&" John"

So, the final result is here.

4. Using Excel Copy and Paste Command to Add Multiple Bullet Points

In this section, we will copy the bullet symbol from MS Word and paste it into Excel.

📌 Steps:

First, go to MS Word and copy the bullet symbol.

Now, back to the Excel file.
Paste the bullet symbol by pressing Ctrl + V.

Write the first data after the bullet symbol.

Now, add a line break by pressing Alt+ Enter and again paste the bullet symbol.

In this way, write the rest of the data.

5. Applying Excel VBA Macro to Add Multiple Bullet Points in a Cell

In this section, we will apply an easy VBA code that easily adds multiple bullet points in an Excel cell.

📌 Steps:

Go to the Sheet Name section, at the bottom of each sheet.
Press the right button of the mouse.
Choose View Code from the Context Menu.

We entered the VBA application window.
Press the Insert tab.
Choose the Module option from there.

Finally, the VBA module appears where we put the VBA code.

First, select the cell.
Now, put the following VBA code on the module.

Sub Add_Bullet_Points()
    Dim range_1 As Range
    Dim text_1() As String
    Dim n As Long
    Application.ScreenUpdating = False
    For Each range_1 In Selection
        text_1 = Split(range_1.Value, vbLf)
        For n = 0 To UBound(text_1)
            If Left(text_1(n), 1) <> Chr(149) Then
                text_1(n) = Chr(149) & " " & text_1(n)
            End If
        Next n
        range_1.Value = Join(text_1, vbLf)
    Next range_1
    Application.ScreenUpdating = True
End Sub