年份 顺序序列号 自动生成

kwzs_abc

shuyee 发表于 2013-10-11 21:09
这么懒？自己加个判断不就解决了么？=if(row()=2,year(b2)&"001",......)

不是懒！！我是菜鸟！！根本不懂！！目的就是在录入B列和C列的对应单元格内容后，A列对应单元格（不能预想设定A2的内容啊）自动生成一个编码！！一旦C列的某一单元格内容清空，其后所有的的A列单元格的内容不能出现“#VALUE!“现象！！能给个详细的公式吗？？能给个详细的公式吗？？能给个详细的公式吗？？

ali_sha

都是高手啊

kwzs_abc

kwzs_abc 发表于 2013-10-12 09:48
不是懒！！我是菜鸟！！根本不懂！！目的就是在录入B列和C列的对应单元格内容后，A列对应单元格（不能预想 ...

平常使用的数据，达到3万多条！减轻劳动！！数据表格式如下：：
{:soso_e105:}

数据格式及表头

清风竹-

kwzs_abc 发表于 2013-10-12 09:27
效果可以！！！假如当C列某一单元格内容清空或者B列某一单元格日期年份变化，对应的A列的对应单元格也清空 ...

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim arr
   
3. If Target.Column = 3 Or Target.Column = 3 Then
   
4.     Application.ScreenUpdating = False
   
5.     Range("A2:A65536").ClearContents
   
6.       m = Range("c65536").End(xlUp).Row
   
7.       arr = Range("a1:c" & m)
   
8.      For j = 2 To UBound(arr)
   
9.          If arr(j, 3) = "" Then
   
10.            arr(j, 1) = ""
    
11.             Else
    
12.              i = j - 1
    
13.              Do Until arr(i, 3) <> ""
    
14.                 i = i - 1
    
15.              Loop
    
16.            If Format(arr(j, 2), "yyyy") = Format(arr(i, 2), "yyyy") Then
    
17.            
    
18.              arr(j, 1) = Format(arr(j, 2), "yyyy") & Format(Right(arr(i, 1), 3) + 1, "000")
    
19.              Else
    
20.              arr(j, 1) = Format(arr(j, 2), "yyyy") & "001"
    
21.           End If
    
22.          End If
    
23.      Next
    
24.       [a1].Resize(UBound(arr), 3) = arr
    
25.     Application.ScreenUpdating = True
    
26. End If
    
27. End Sub
    

复制代码