Excel中VB比较两个单元格值是否相等，出现‘运行时错误'13' 类型不匹配’

求大神帮帮忙，急急急呀，如果需要源文件麻烦给我一个邮箱哈，谢谢了，麻烦了！第一个工作表第7个工作表

出现错误的代码

sheet1中的数据

sheet7中的数据

错误提示

还有一个问题就是，能否在下面这个窗口显示的同时，我可以编辑这个Excel文件

1. 建议在后面加上【.Value】试试
Sheet1.Cells(i,6).Value=Sheet7.Cells(j,3).Value

2. 插入一个模块，写一个过程，用UserForm1.Show vbModeless 即可

问题在于，你在vb环境中编写了这个程序，但是没有引用相应的库，相应的常数找不到，所以会出问题。解决方法有二。 1.单击“工程”菜单，引用，勾选microsoft excel xx object library，问题即可解决。 2.自己定义需要用的常数。在程序最上面加上 const xl3dpie = -4102 问题即可解决。