Filling Table Cells with Sequential Numbers

Denis frequently uses tables in his documents. In those tables, he has a need to add a series of sequential numbers to the cells in the first column. Denis wonders if there is a way to pick a starting number in a cell and then have Word add the sequential numbers for all the cells under that starting number.

There are a couple of ways you could go about this. One way is to use Word's built-in numbering, in this manner:

1. Insert your table as you normally would.
2. Select the cells in the table that you want to have numbered.
3. Display the Home tab of the ribbon.
4. Click the Numbering tool, in the Paragraph group. Word adds numbering, automatically, to the selected cells.

If you want to modify the starting number for the cells, right-click the number in the first cell and then choose Set Numbering Value from the resulting Context menu. Word displays the Set Numbering Value dialog box. (See Figure 1.)

Figure 1. The Set Numbering Value dialog box.

Enter the value you want to start with, and when you click OK, Word updates the numbers in the cells. You'll also note that if you insert any rows in the middle of your numbered sequence, Word automatically adds a number to that inserted row.

Noting this behavior, you might appreciate a simple variation on the above process that works well when you are inserting a brand-new table:

1. Insert a single-row table.
2. Add the automatic number to the desired column and change its starting value, if desired. (In other words, follow the steps above for the single cell in the row.)
3. When entering data in the table and you get to the last column, press Tab and Word inserts a new row that is automatically numbered.

Another powerful way to add your numbering is to use the SEQ field. Follow these general steps:

1. Insert the insertion point at the place in the table where you want the first number.
2. Press Ctrl+F9 to insert an empty set of field braces.
3. Inside the field braces, type SEQ followed by a space, then a name you want used for this particular sequence, then another space, then \r, then the number you want the sequence to start with. Here's an example of how the field code would appear if you wanted to start counting with the number 4:

     { SEQ table1 \r4 }

4. With the insertion point still within field code, press Shift+F9. Your number should appear.
5. Repeat steps 2 through 4 for each of the other cells where you want a number, but make sure you leave off the \r switch in these others.

Finally, if you prefer to use a macro to insert numbers in a sequence of cells, you could use one similar to this:

Sub AddNumbersToTable()
    Dim RowNum As Long
    Dim ColNum As Long
    Dim iStartNum As Integer
    Dim J As Integer

    If Selection.Information(wdWithInTable) Then
        RowNum = Selection.Cells(1).RowIndex
        ColNum = Selection.Cells(1).ColumnIndex

        iStartNum = Val(Selection.Cells(1).Range.Text)
        If iStartNum <> 0 Then
            iStartNum = iStartNum + 1

            For J = RowNum + 1 To ActiveDocument.Tables(1).Rows.Count
                ActiveDocument.Tables(1).Cell(J, ColNum).Range.Text = iStartNum
                iStartNum = iStartNum + 1
            Next
        Else
            MsgBox "Cell doesn't contain a non-zero starting number."
            Exit Sub
        End If
    Else
        MsgBox "Not in table"
    End If
End Sub

To use the macro, just put a starting sequence value into a cell of the table and leave the insertion point in that cell. When you then run the macro, all the cells under that starting cell are filled with sequential values. (Anything previously in those cells is deleted.)

WordTips is your source for cost-effective Microsoft Word training. (Microsoft Word is the most popular word processing software in the world.) This tip (89) applies to Microsoft Word 2007, 2010, 2013, 2016, 2019, Word in Microsoft 365, and 2021.