Sub 按钮1_单击()
a = [a65536].End(xlUp).Row
With ActiveSheet
.ResetAllPageBreaks
For k = 22 To a Step 20
.HPageBreaks.Add before:=Cells(k, 1)
Next
.HPageBreaks.Add before:=Cells(a + 1, 1)
Cells(1, 1).Select
End With
ActiveWindow.View = xlNormalView
End Sub
每行都有标题的话,自己手动进行一下页面设置.
附件是随便做的，主要是配合演示表里宏代码功能。先把Excel的宏安全设置中及以下，如果设置成中，打开附件的时候，会弹出宏安全提示，要点击启用宏按钮，这样附件中的宏功能就可以使用，操作方法，按一下Ctrl+i键，就可以每隔21行，插入一行，且填充第一行的数据。
如何利用我写的宏代码解决你的实际问题：方法1,你把你的数据复制到我上传的附件里，然后按Ctrl+i，再把得到的数据复制回你原来的表里即可。方法2，在你自己的表里（如果你的数据在Sheet1）那么就在Sheet1的标签处，点击右键，在弹出的菜单中选择查看代码，Excel会自动弹出编辑窗口，你把下面的代码粘贴到编辑窗口内，并点击一下工具栏上的那个三角形按钮，就可以达到同样的目的。
代码如下： Sub 插入行且填充第一行() en = [a65536]。End(3)。Row Set rn = Cells(22, 1) For i = 22 To en Step 20 Set rn = Union(rn, Cells(i, 1)) Next rn。
EntireRow。Insert Rows(1)。Copy Columns(1)。SpecialCells(xlCellTypeBlanks) End Sub 。
1·在目标格前增加一列，（A列） 2·在此列向下填充22个数（比如A）。在“第23”的位置填充一个其他的数字（比如B）。 3·用鼠标定义已经写过A和B的区域，在右下角“十”字上用鼠标左键下拉至所需要的行数。（也可以用“粘贴”） 4·定义目标列及增加列。点击“数据”“筛选” 5·在增加列（A列）点击“筛选键”选择“B”。 6·将需要的内容粘贴到目标列的第一行，双击右下角“十”字; 7·在增加列（A列）点击“筛选键”选择“全选”。 8·完成了！一般熟练的话不到一分钟就能搞定。
找个软件开发人员写点代码帮你搞定吧，估计半小时左右就能搞定。
答：操作说明： 1、在A列输入间隔为6的序号，如红色数码。 2、在F列输入重复相同姓名的自然数列序号，如蓝色数码。 3、在G1输入公式“=IF(ISERROR(VL...详情>>
问：怎样用Camtasia Studio v2.0.3来制作媒体
答：这个软件有使用向导的，你新建一个文件，然后照着他的说明一步一步的走下去，就知道怎么用了，这个软件太小了，网上跟本找不到教程的，如果你确实还是不会的话，找个懂电脑...详情>>
