我在A栏中列出了100个名字。例如John,Jacob,James。
我想将数字1-99999添加到A列中的每个单元格。
我有数字列表,我如何将它们添加到每个单元格以输出这样的? John1 John2 约翰3 ... Jacob1 Jacob2 Jacob3
答案 0 :(得分:0)
如果您将以下公式放在单元格B1中并向下复制约100万行,您应该得到所需的答案:
=INDEX(A:A, INT((ROW() - 1) / 99999) + 1) & (MOD(ROW() - 1, 99999) + 1)
答案 1 :(得分:0)
这是一个关于复制作为答案的评论,因为我没有足够的声誉
如果将Phylogenesis提供的公式放入列中与您的数据相邻的列中的第一个单元格,则将鼠标移动到突出显示的单元格的右下角,光标将变为十字形。双击鼠标,这将自动将公式添加到所有适当的单元格 - 假设没有空格
答案 2 :(得分:0)
试试这个小宏:
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