用选择性粘贴----公式试试?如果你手动选择性粘贴公式可以的话就可以用下面代码。
当然,不一定都可以,还要看你用的什么样的公式。你试试吧,不行可能需要根据你表格公式,用程序直接写入公式了。
Rows(R).Insert '插入行
Rows(R - 1).Copy '复制插入行的上一行
Rows(R).PasteSpecial xlPasteFormulas '选择性粘贴 公式
Application.CutCopyMode = False '退出复制模式
选中你的数据区,菜单:数据-列表-创建列表,就行了
自动插入行-- 是插入很多行?还是只插入一行?还有 这个自动是什么意思?
包含上一行的公式-- 直接复制上一行粘贴在插入行 插入行就有公式了