End(xlUp).Row 行号定位不符合实际要求

zhangweilinsh · 发表于 2023-4-19 12:21

各位老师好，为了实现逐行计算，月度计算过后不在参与计算使用，使用变量T来定位行号，不知为啥这个T变量运算不是实际所需要的，是否是我的代码问题，单独做表运行这个代码是正常的，为啥在这表里就不对了，麻烦各位老师帮我看看谢谢！

T = Range("J15").End(xlUp).Row + 1 '附加税逐行计算
MsgBox T
For I = T To 15
If Cells(I, 8) > 0 Then
Cells(I, 9) = Cells(I, 8) / Cells(I, 2)
Cells(I, 10) = Cells(I, 8) * [J3]
Cells(I, 11) = Cells(I, 8) * [K3]
Cells(I, 12) = Cells(I, 8) * [L3]

杨建营 · 发表于 2023-4-19 12:35

这句代码只能查找比16行小的行数,；你应该把数值写大一些。

杨建营 · 发表于 2023-4-19 12:37

如果确定循环是从大到小，一个加上 step -1（数值看你的需要改写），这样才不会出错。

ykcbf1100 · 发表于 2023-4-19 12:38

t= Cells(Rows.Count, "j").End(xlUp).Row +1
这样试试

yylucke · 发表于 2023-4-19 12:47

变量T没有毛病。
Q列计算公式应修改，既然是累计，那么应该是累计税款÷累计收入

yylucke · 发表于 2023-4-19 12:52

zhangweilinsh · 发表于 2023-4-19 13:23

谢谢老师，我这个是从小到大，也就是在J4到J15的范围内因为月份是从1月到12月，是按顺序填的如城建税一月份到3月份的征收率是7%的，由于政策因素减半征收了那这里就填3.5%，象之前这个税率一变下面1到12月数据全部变了，其实之前的应该还是7%不变的数据，如果J15放大到J30或者更大那就超出了那个范围，指定的最后一行行号应该一直是J16行的16数字（因为这个单元格是求的累计数据），yylucke老师的思路也是对的应为年率一年内的累计数，不知如何修改麻烦老师帮我来看看调试一下谢谢

zhangweilinsh · 发表于 2023-4-19 13:38

老师我知道问题出在哪里了，原来是我前面的代码把J4及以下的数据全清理了所以它一直从4开始运算，现在改过来了可以了谢谢大家的帮助

		自动登录	找回密码
密码			免费注册

[求助] End(xlUp).Row 行号定位不符合实际要求