局单元格后半字符删行

xing_chen

gwjkkkkk 发表于 2023-5-10 22:10
Option Explicit
Sub test2()
    Dim ar, i&, j&, p&, rng As Range

谢谢老师！你的代码原先在我的附件中运行非常满意，但在我实际表格中，运行却出现问题。现在再上传附件，敬请老师方便的时候帮我看看。附件和下面ykcbf1100一样

ykcbf1100

xing_chen 发表于 2023-5-11 12:33
谢谢老师！我将你代码，今天放入正式表格后发现不行。是我简化删除的太厉害了。现在重发，方便的时候，帮 ...

代码小改一下即可。

xing_chen

xing_chen 发表于 2023-5-11 12:36
谢谢老师！你的代码原先在我的附件中运行非常满意，但在我实际表格中，运行却出现问题。现在再上传附件， ...

谢谢老师！运行如愿

xing_chen

gwjkkkkk 发表于 2023-5-10 22:10
Option Explicit
Sub test2()
    Dim ar, i&, j&, p&, rng As Range

老师！你昨日代码可以帮我再按上传的附件修改吗?

gwjkkkkk

xing_chen 发表于 2023-5-11 21:20
老师！你昨日代码可以帮我再按上传的附件修改吗?

请参考。。。

xing_chen

gwjkkkkk 发表于 2023-5-11 21:40
请参考。。。

谢谢老师！运行如愿！

xing_chen

ykcbf1100 发表于 2023-5-10 22:13
附件供参考。。。

老师！我将你上面代码，用于相似表格中，显示变量未定义，上次在原附件中运行正常的吗，这次为什么不行了呀，另这次上传的附件付退款间隔簿等，与上次的附件簿同点。请方便时候看看。谢谢

xing_chen

ykcbf1100 发表于 2023-5-11 12:46
代码小改一下即可。

老师！此问题一直麻烦你，我就此问题做一说吗。我这里的其实是各分部发来的流水账，现在解决的问题有的是打款不成功的退款，及又付款成功的问题。有的退款是用负数标色，有的是在另外列表示。退款喃有的注明，有的不注明。付退款一般都在同日，但由于有时付款多，会间隔不等。以往都靠人工检查删除，使得表格简洁。现在想通过代码操作。现在是用负数表示退款并注明退款的解决了，就是这种不注明用另外收入列表示的退款，又付款的不成功。

ykcbf1100

xing_chen 发表于 2023-5-17 15:56
老师！此问题一直麻烦你，我就此问题做一说吗。我这里的其实是各分部发来的流水账，现在解决的问题有的是 ...

晚上看一下。

xing_chen

ykcbf1100 发表于 2023-5-17 16:11
晚上看一下。

好的！那辛苦你了