Private Sub CommandButton1_Click()
Range("IJ1:IV364").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"h15:n16"), CopyToRange:=Range("F20:r20"), Unique:=False
End Sub
引用OFFICE是什么意思?
追答你这段代码不是操作office的吗?应该是你没有引用或office有问题
追问那要怎么解决?
追答你先引用office,如果不行就安装下office
本回答被网友采纳