[已解决]根据B列内容在A列生成编号

bao709394

现在只能够生成序号，如果要修改成编号要怎么修改？麻烦老师帮帮忙，谢谢！！

最佳答案

月排行榜 / 总排行榜

fjmxwrs

2016-10-19 12:30

你用函数来处理这个编号，因函数具有易失性，会把所有的编号都变成了当前日期或前一天日期的编号了，如果你是每天都要连续往下编号，那么，就不好用了，但看你的代码，不是连续往下编号的，只是一次性编号的，用函数即可，如果用你的原代码，只需要加上日期即可，前一天的话就日期减1即可。

1. Sub bh()
   
2.     Dim i As Integer, j As Integer
   
3.     j = 0
   
4.     For i = 2 To [b65536].End(xlUp).Row
   
5.         If Range("b" & i) <> "" Then
   
6.             j = j + 1
   
7.             Range("a" & i) = Format(Date, "yyyymmdd") & Format(j, "000000")
   
8.         End If
   
9.     Next i
   
10. End Sub
    

复制代码

跳转到最佳答案楼层

yanhj

=TEXT(SUBSTITUTE(TODAY(),".","-"),"yyyymmdd") & TEXT(ROW(A2)-1,"00000")

苏子龙

在c2写入

1. =IF(C2="",C2,TEXT(NOW(),"emmdd")&TEXT(ROW()-1,"000000"))

复制代码

开启迭代运算，可能是你想要的结果

fjmxwrs

你用函数来处理这个编号，因函数具有易失性，会把所有的编号都变成了当前日期或前一天日期的编号了，如果你是每天都要连续往下编号，那么，就不好用了，但看你的代码，不是连续往下编号的，只是一次性编号的，用函数即可，如果用你的原代码，只需要加上日期即可，前一天的话就日期减1即可。

1. Sub bh()
   
2.     Dim i As Integer, j As Integer
   
3.     j = 0
   
4.     For i = 2 To [b65536].End(xlUp).Row
   
5.         If Range("b" & i) <> "" Then
   
6.             j = j + 1
   
7.             Range("a" & i) = Format(Date, "yyyymmdd") & Format(j, "000000")
   
8.         End If
   
9.     Next i
   
10. End Sub
    

复制代码

fjmxwrs

如果你B列是连续的，中间没有空单元格，那么代码简化如下

1. Sub bh()
   
2.     Dim i As Integer
   
3.     For i = 2 To [b65536].End(xlUp).Row
   
4.         Range("a" & i) = Format(Date, "yyyymmdd") & Format(i - 1, "000000")
   
5.     Next i
   
6. End Sub

复制代码

jsdfzaq

好！有实用价值

bao709394

fjmxwrs 发表于 2016-10-19 12:30
你用函数来处理这个编号，因函数具有易失性，会把所有的编号都变成了当前日期或前一天日期的编号了，如果你 ...

原来这一句是加在这个位置，谢谢老师！