恳请高手师傅们帮忙看下这个指定数移动的难题

qiongmei6

我希望求得一个代码，他根据“产事假账号汇总”的h列中出现“事假”的文字，则会将该行的a：g复制到“汇总”表格内L：R列中m列为空白行处，但是如果“产事假账号汇总”表格内b列账号和“汇总”表格内m列账号相同，则“产事假账号汇总”表格内“事假”直接替换掉到“汇总”表格内L：R列与“产事假账号汇总”相同账号的那行，非常感谢之前有gwjkkkkk师傅提供一个代码执行这个程序，但是现在出现的问题是，“产事假账号汇总”的h列没有出现“事假”，则程序出现“下标越界”，能否将这个代码改成“产事假账号汇总”的h列没有出现“事假”不会出现提示“下标越界”，或者改成没有出现事假则直接中止程序的执行也行，就是不要出现提示，因为我还有其他程序跟着一起执行的，现在他出现提示导致我其他程序无法执行，谢谢高手师傅的帮忙。

zjzyj

    With Sheets(1)
        ar = .[A1].CurrentRegion

改为：

    With Sheets("产事假账号汇总")
        ar = .[A1].CurrentRegion.Resize(, 8)

zjzyj

"产事假账号汇总"表H1单元格加上“备注”两字（或者任意字符），不用改代码也能避免出现“下标越界”报错