excel列中相同的数据后面添加序号？

来源：百度知道 编辑：UC知道 时间：2024/05/31 16:20:47
在整理时候，需要将相同的数据加上序号区分开来，但是数据太多。如何解决阿？如：
列中
A1 圆柱
A2 圆柱
A3 圆柱
A4 菱形
A5 菱形

我想批量自动添加为：
A1 圆柱1
A2 圆柱2
A3 圆柱3
A4 菱形1
A5 菱形2

用手工录入工作量太大，请高手帮忙下。

序号是放在B列还是直接在A列文字后面添加？

如果是直接接在文字后面，就只有用VBA了。

按alt+F11打开VBA编辑器，双击左边你要处理的数据所在工作表，打开其代码窗口，在窗口里输入代码：

Sub test()
Dim i, j, k, cc, a(1000)
For i = 1 To 1000
If Cells(i, 1) <> "" And a(i) <> 1 Then
cc = Cells(i, 1)
Cells(i, 1) = cc & 1
k = 2
For j = i To 1000
If Cells(j, 1) = cc Then
Cells(j, 1) = cc & k
k = k + 1
a(j) = 1
End If
Next j
End If
Next i
End Sub

按F5运行。

代码可将A列1000行内的文字进行你所说的处理。这个处理是不可逆的，在你按F5运行之前，请自行备份A列数据。

B1=A1&COUNTIF(A$1:A1,A1)
将公式向下复制.

TBWIND 高手! 收藏了!