这份文档在旧电脑的Office 2003里面可以正常使用,但是在办公室的电脑上使用就报错,(尝试过以下版本:WPS 2019/Office 2016/2013)有熟悉VBA使用的大佬麻烦指点一二,先谢谢大佬们了!

解决方案 »

  1.   

    [D3] 换成 range("D3").text 
    试试
    其他地方同理
      

  2.   

    之所以让你改为 range().text 是因为你的截图里面,是进行这个单元格的文本比较。
    .End() 操作是针对range的,不要.text
    也就是 range("A65535").End(xlUp).row ……
      

  3.   


    修改完之后,这个 “u = Range("A65536").End(xlUp).Row + Range("D65536").End(xlUp).Row - 4”还是报错
      

  4.   

    这种写法,在MS Office中是没问题的,但在WPS Office中就不能这样写了。
    很多东西在细节上都有差异,记得就连Left函数,都要写成VBA.Left 才行……
    我这儿没有安装WPS,没法实际试验,只能大概说一下方法了。
    你试试把这些 Range( ),都写成ActiveSheet.Range( )
     或者 Application.Range( )
    看看行不。