如下图所示，A列单元格已经排序，要在B列单元格后面标注编号，该如何操作？
工具/原料
操作设备：计算机
操作系统：Windows7
办公软件：Excel2010
方法/步骤一：使用函数公式处理
1、B2单元格输入函数公式=COUNTIF猾诮沓靥($A$2:$A$1000,A2)-COUNTIF(A3:$A$1000,A2)
2、将B2单元格向下复制填充，将会看到所需的结果。
3、函数公式=COUNTIF($钽吟篑瑜A$2:$A$1000,A2)-COUNTIF(A3:$A$1000,A2)释义：（1）COUNTIF函剞麽苍足数是统计某一区域满足条件的单元格个数，即：COUNTIF(单元格区域,条件)（2）COUNTIF($A$2:$A$1000,A2)是统计A2单元格在$A$2:$A$1000里面的个数，而COUNTIF(A3:$A$1000,A2)则是统计A2单元格在下一个单元格开始的区域里面满足条件的个数，两者相减即可换算成所需的编号。
方法/步骤二：使用VBA程序处理
1、点击【开发工具】→【VisualBasic】调出VBE编辑器。
2、点击【插入】→【模块】。
3、在模块代码框里边输入以下VBA程序代码，检查无误后，按下【F5】键运行程序。Sub咯悝滩镞Inser_Number()Dimi1,i2OnErrorResume惺绅寨瞀Next'忽略运行过程中可能出现的错误Setmysheet1=ThisWorkbook.Worksheets("Sheet1")'定义工作表Sheet1Fori1=2To10000'从第2行到10000行Ifmysheet1.Cells(i1,1)<>""Andmysheet1.Cells(i1+1,1)<>""Then'如果比较的两个单元格都不是空白，则Ifmysheet1.Cells(i1,1)=mysheet1.Cells(i1+1,1)Then'如果两个单元格相同，则i2=i2+1'递增1mysheet1.Cells(i1,2)=i2'将值写入B列对应的单元格Elsemysheet1.Cells(i1,2)=i2+1i2=0EndIfEndIfNextEndSub
4、回到Excel工作表界面，将会看到执行的结果。
