我认为最完美的方法：
以你的表格为例
1、A6输入=IF($D6="","",A$1)，横向复制到C6；
2、ctrl+G，定位，引用位置中输入 D6:D60000，确定，在公式编辑栏（fx）输入
=IF($D$1="","",IF(ROW()-(ROW()-ROW(A1))>$D$1,"",ROW(A1)))
按ctrl+enter结束(这一步很关键)；
3、选中A6:C6，鼠标移到C6右下角，光标变成黑色小十字，双击；
4、ctrl+G，定位，引用位置中输入 A6:D60000，确定，“格式”菜单，条件格式，使用公式确定要设置的格式，输入
=$A6<>""
点“格式”，“边框”选项卡，点“外边框”图标，确定。
至此，完美解决你的问题，当你的D1中输入任何>0且<60000的数字，从D6开始，会向下填充到指定的行数，对应的A1:C1中的内容也随着复制到相应的行内，并且，在生成的表中会自动加上边框。
还有疑问，可在追问中留下邮箱，我将我做好的样表发给你。追问
以你的表格为例
1、A6输入=IF($D6="","",A$1)，横向复制到C6；
2、ctrl+G，定位，引用位置中输入 D6:D60000，确定，在公式编辑栏（fx）输入
=IF($D$1="","",IF(ROW()-(ROW()-ROW(A1))>$D$1,"",ROW(A1)))
按ctrl+enter结束(这一步很关键)；
3、选中A6:C6，鼠标移到C6右下角，光标变成黑色小十字，双击；
4、ctrl+G，定位，引用位置中输入 A6:D60000，确定，“格式”菜单，条件格式，使用公式确定要设置的格式，输入
=$A6<>""
点“格式”，“边框”选项卡，点“外边框”图标，确定。
至此，完美解决你的问题，当你的D1中输入任何>0且<60000的数字，从D6开始，会向下填充到指定的行数，对应的A1:C1中的内容也随着复制到相应的行内，并且，在生成的表中会自动加上边框。
还有疑问，可在追问中留下邮箱，我将我做好的样表发给你。追问
我有很多的类似100的，还有3000的。都需要生成每一行。。
追答你按我的步骤做，在D1中输入3000试试？我做的样表要看看效果吗？留个邮箱哦，亲～
追问追答加你QQ了，互加一下，亲～
温馨提示：答案为网友推荐，仅供参考
第1个回答 2012-11-09
就你的表格而言
选择A6:C10000
输入公式
=IF(ROW()-5<$D$1,A$1,"")
按CTRL+ENTER键结束
再选择D6:D10000
输入公式
=IF(ROW()-5<$D$1,ROW()-5,"")
按CTRL+ENTER键结束
选择A6:C10000
输入公式
=IF(ROW()-5<$D$1,A$1,"")
按CTRL+ENTER键结束
再选择D6:D10000
输入公式
=IF(ROW()-5<$D$1,ROW()-5,"")
按CTRL+ENTER键结束
第2个回答 2012-11-09
例如你要填充的数据首行在第一行第一个单元格在A1，那么在名称框输入A1:C100，然后按CTRL+D，所有都填充了，如果你还需要序列号，那么在D1输入1，D2输入2，选择D1、D2，双击右下角黑十字，1-100立马填好。追问
名称框在哪里 ？
第3个回答 2012-11-09
楼上说的可以
相似回答