求F列自动编号

a18b88

详见附件，谢谢！ 求F列自动编号.rar (6.19 KB, 下载次数: 16)

2018-11-18 09:52 上传

点击文件名下载附件

719404338

1. Sub t()
   
2. Dim i%, j%
   
3. j = 1
   
4. For i = 5 To [c65536].End(3).Row
   
5.    df = Range("n" & i) + df
   
6.    jf = Range("l" & i) + jf
   
7. Range("f" & i) = j
   
8. If df = jf Then
   
9. j = j + 1
   
10. jf = 0: df = 0
    
11. End If
    
12. If Range("c" & i + 1) <> Range("c" & i) Then j = 1
    
13. Next i
    
14. End Sub
    

复制代码

蓝桥玄霜

请见代码。

a18b88

蓝桥玄霜老师，谢谢您！，我把你的代码抄录到文件里，没有成功，也可能抄录的有错，检查了好几遍也没发现错误，不知道何故。您再给看看看问题出在哪？ 求F列自动编号.rar (11.66 KB, 下载次数: 4)

2018-11-18 13:26 上传

点击文件名下载附件

a18b88

719404338朋友，谢谢您!,基本上可以使用，美中不足是：当 C 列为空时，F 列也要为空才好。

719404338

晚上用电脑改进一下。

yjh_27

参见附件。

a18b88

谢谢您 yjh_27 朋友，好用。

a18b88

yjh_27 老师，请看附件，为什么到 2249 行就不可以了？麻烦抽空再给看看是什么原因。 分录编码（用-1）.rar (253.95 KB, 下载次数: 3)

2018-11-18 19:55 上传

点击文件名下载附件

yjh_27

a18b88 发表于 2018-11-18 19:55
yjh_27 老师，请看附件，为什么到 2249 行就不可以了？麻烦抽空再给看看是什么原因。

浮点运算造成判断不准。改为差小于0.01为相等判据