我要做的是重置过滤器，然后删除第9行以下的所有行。
这应该是一件容易的事，但这是一个共同创作的电子表格，我想避免使用p <- ggplot(data=Algae, aes(x=a254, y=DOC))+
geom_point(color="blue",stat="identity") +
geom_smooth(method="lm",se=FALSE,color="red",formula=y~x)
model.lm <- lm(DOC~a254, data=Algae)
l <- list(a=format(coef(model.lm)[1], digits=4),
b=format(coef(model.lm)[2], digits=4),
r2=format(summary(model.lm)$r.squared, digits=4),
p=format(summary(model.lm)$coefficients[2,4], digits=4))
eq <- substitute(italic(DOC) == a - b %*% italic(a254)~","~italic(R)^2~"="~r2~",
"~italic(P)~"="~p, l)
p1 <- p + geom_text(aes(x =6, y = 0, label = as.character(as.expression(eq))), parse = TRUE)
p1
，因为这将需要所有人刷新电子表格。
我试图使用keybd_event模拟ALT + A + C来清除过滤器，但效果不佳。
ActiveSheet.ShowAllData我的想法是，当marco模拟alt + a + c时，隐藏的行直到整个宏完成后才显示。因此，它只会删除那些可见的行，并且在宏完成后，那些隐藏的行就会出来。
有人知道更好的方法吗？任何帮助，将不胜感激！谢谢！