VBAExcel"编译错误:对象必需"

您正在尝试将set关键字与字符串变量一起使用.只有对象才需要设置.删除该集,你应该没事:)

具体来说,改变这个:

Set strModel = Right(rng.Offset(0, 13).Value, Len(rng.Offset(0, 13).Value) - 4)

对此:

strModel = Right(rng.Offset(0, 13).Value, Len(rng.Offset(0, 13).Value) - 4)