如何将数字添加到Excel单元格？

Question

我在A列中列出了100个名称。例如John，Jacob，James。

我想将数字1-99999添加到A列的每个单元格中。

我有数字列表，如何将它们添加到每个像元中以进行输出？ 约翰1约翰2约翰3 ...雅各布1雅各布2雅各布3

Answer 1

如果将以下公式放在单元格B1中并向下复制大约一百万行，则应获得所需的答案：

=INDEX(A:A, INT((ROW() - 1) / 99999) + 1) & (MOD(ROW() - 1, 99999) + 1)

Answer 2

这是评论，因为我没有足够的声誉而抄写下来作为答案

如果将“系统发育”提供的公式放置在包含数据的列旁边的第一个单元格中，则将鼠标移至突出显示的单元格的右下角，光标将变为十字形。 双击鼠标，这将自动将公式添加到所有适当的单元格中（假设没有空格）

Answer 3

试试这个小宏：

Sub NumberNames()
    Dim jacob As Long, john As Long, james As Long
    Dim i As Long
    jacob = 1
    james = 1
    john = 1
    For i = 1 To 100
        With Cells(i, 1)
            v = .Value
            If v = "John" Then
                .Value = .Value & john
                john = john + 1
            End If
            If v = "Jacob" Then
                .Value = .Value & jacob
                jacob = jacob + 1
            End If
            If v = "James" Then
                .Value = .Value & james
                james = james + 1
            End If
        End With
    Next i
End Sub

如果您的数据像这样开始：

James
Jacob
John
James
John
John
James
John
James
John
Jacob
John
James
James
John
John
James
John
James
James

它最终将像：

James1
Jacob1
John1
James2
John2
John3
James3
John4
James4
John5
Jacob2
John6
James5
James6
John7
John8
James7
John9
James8
James9