如何在 Excel 单元格中添加数字？答案

【问题标题】：How can I add numbers to a excel cell?如何在 Excel 单元格中添加数字？
【发布时间】：2014-03-20 13:31:56
【问题描述】：

我在 A 列中有 100 个名字的列表。例如 John、Jacob、James。

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

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

【问题讨论】：

如果我从字面上看你的问题，你想要：John1, John2, ..., John99999, Jacob1, Jacob2, ..., Jacob99999, ...，James1，James2，...，James99999，...？你想把它们放在什么单元格中？

标签： excel function numbers

【解决方案1】：

如果您将以下公式放入单元格 B1 并向下复制大约 100 万行，您应该会得到您需要的答案：

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

【讨论】：

我怎么能不应对（有时我有200-400）？
重新计算后，我意识到我的结果是 10 倍。您将无法执行此操作，因为 Excel 电子表格中的最大行数为 1048576 (2^20)。
@user16323 要在没有公式和向下/跨复制的情况下执行此操作，您需要创建一个宏。
我对宏很熟悉，但是什么代码可以执行这个公式？
@user16323 一般来说，我不会在宏中使用公式。我只是通过循环 A 列中的值并将连接结果输出到不同的位置来生成预期值。

【解决方案2】：

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

如果您将 Phylogenesis 提供的公式放入包含数据的列旁边的列中的第一个单元格中，则将鼠标移动到突出显示的单元格的右下角，光标将变为十字形。双击鼠标，这将自动将公式添加到所有适当的单元格 - 假设没有空格

【讨论】：

【解决方案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

【讨论】：

不适用于 200 个用户。
您的帖子在 A 列中显示了 3 个姓名和 100 个条目............还有更多???