满足条件，自动插入并复制--求教高人

cnfhcs

如果第二行的“平仓手数”J2 小于 “手数”H2，则自动在该行下面插入一行，并复制第二行A2,B2,C2,D2,F2,G2的内容填入插入行相应的单元格内，并且第二行的“手数”H2的值变为J2的 值，H3的值变为H2-J2的差。这样可以实现吗，请教大神。

附件中说明：H2的值原来是50，满足J2<H2 (30<50)条件后自动在下面插入一行，并复制A2,B2,C2,D2,F2,G2的内容到插入行的相应单元格，并H2的值有原来的50变为30跟J2的值相等，H3的值为原来H2的值50减去J2的值30等于20。我已经将想要达到的结果手工输入到了第三行，并用颜色区分了，希望高手能写个程序这样的过程能自动完成。

cnfhcs

朱荣兴 发表于 2016-10-14 10:33

我对程序一窍不通，运行你写的代码提示运行错误13，类型不匹配，

excelspss1

这种插入的必须使用VBA才能够行吧，我学了几个星期VBA，还不太会

cnfhcs

朱荣兴 发表于 2016-10-14 10:33

按照这个附件，能不能再帮我写一下程序。
要求：如果第二行的“平仓手数”J2 小于 “手数”H2，则自动在该行下面插入一行空白行，在插入时最好能出来个询问是否插入的对话框（确定Y，取消N）。当J2值等于0或空白时不插入空白行。
程序能自动识别是否满足所设置的条件，一旦满足就执行此程序询问是否插入空白行
谢谢

cnfhcs

朱荣兴 发表于 2016-10-18 18:33
如果有很多行都满足条件，每次插入前都询问你，还不把你烦死？呵呵

不会，我数据是一行一行输的，不会同时出现很多行都满足条件的情况，麻烦你，谢谢