求助：行数不固定生成序号及编码。

pnwzj

1、在a列自动生成从1-N的序号。（A2起 至合计行上一行止）
2、b根据E列情况生成编码：格式例如ZCPD-2019-0001（序列）。当E列对应数字为0时，跳过不编号。
求vba实现。详见附件。万分感谢。

719404338

1. Sub t()
   
2. Dim i, a, b
   
3. a = 1: b = 1
   
4. For i = 2 To UsedRange.Rows.Count - 1
   
5. Range("a" & i) = a
   
6. a = a + 1
   
7.   If Range("e" & i).Value = "" Then
   
8.     Range("b" & i) = "ZCPD-2019-" & Format(b, "000")
   
9.     b = b + 1
   
10. End If
    
11. Next i
    
12. End Sub

复制代码

lsc900707

1. Sub gj23w98()
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     c = [IV1].End(xlToLeft).Column
   
4.     arr = Cells(1, 1).Resize(r, c)
   
5.     For i = 2 To UBound(arr) - 1
   
6.         m = m + 1
   
7.         arr(i, 1) = m
   
8.         If arr(i, 5) = "0" Then
   
9.             arr(i, 2) = ""
   
10.         Else
    
11.             n = n + 1
    
12.             arr(i, 2) = "ZCPD-2019-" & Format(n, "0000")
    
13.         End If
    
14.     Next
    
15.     Cells(1, 1).Resize(r, c) = arr
    
16. End Sub

复制代码

lsc900707

测试参考附件：

pnwzj

lsc900707 发表于 2019-3-14 22:14
测试参考附件：

感谢老师出手相助，能否解释一下代码意思，便于学习和修改利用。多谢。

lsc900707

pnwzj 发表于 2019-3-15 20:59
感谢老师出手相助，能否解释一下代码意思，便于学习和修改利用。多谢。

本来就14行代码，哪一句不懂呢？