急求大神帮忙解决一下代码执行错误问题，帮帮忙修复一下，谢谢

曹明禹 · 发表于 2016-1-3 19:28

本人按照自己需要，参考别人的代码写了一个表格，但是执行的时候出现了错误，本人资历浅，不知道该如何解决，麻烦哪位高人帮忙指点修改一下，不胜感激，谢谢

七彩屋 · 发表于 2016-1-3 20:47

If [B4] = "采购清单" Then
r = Sheets("采购记录").Range("A65536").End(xlUp).Row

		自动登录	找回密码
密码			注册