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

在整理时候，需要将相同的数据加上序号区分开来，但是数据太多。如何解决阿？如：
列中
A1 圆柱
A2 圆柱
A3 圆柱
A4 菱形
A5 菱形

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

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

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

如图 b2公式 =value(a2&countif($a$2:a2,a2)) 下拉

序号是放在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列数据。