一根绳子打活结方法:excel问题,请帮忙

来源:百度文库 编辑:神马品牌网 时间:2024/05/04 22:07:47
D列的1-16行分别有数字1.2.3-15.16,怎么能让17到6000行也有数字1-16,1-16,1-16,量太多复制的话麻烦,托拽的话就变成15 16 17 18 这样子,怎么做方便?
E列的1-16行分别有数字1-16,但是不是等差顺序,是没有规律的排列,如何让17-6000行也和1-16一样地排列?

不用编程..
选中1-16行
按下Ctrl 键 向下拖曳

两个要求都是这样做..

思路:先录制一个能够完成复制、粘贴一次的宏(相对引用),然后用FOR……NEXT语句指定运行的次数就成了。

如果不会做,可以用第二套方案:
单击 工具→宏→Visul Basic编辑器→插入→模块 再粘贴如下代码

Sub Macro1()
'
' Macro1 Macro
' 宏由 MC SYSTEM 录制,时间: 2006-7-1
'
i = 0
For i = 1 To 375
ActiveCell.Range("A1:A16").Select
Selection.Copy
ActiveCell.Offset(16, 0).Range("A1").Select
ActiveSheet.Paste

Next
End Sub

关闭后,
第一个问题,点击D1单元格,再点击 工具→宏→宏→Macro1 就成了。
第二个问题,点击E1单元格,再点击 工具→宏→宏→Macro1 就成了。

小贴士:若要复制其他的列,只要把光标放在该列的第一行的单元格就成了。另外复制的行数,要粘贴的次数只要修改一下这个宏就都能完成了。

很高兴能见到你提出的这个问题,难度不大,却让我实践了EXCEL的一个小技巧,谢谢!

你先在D列中复制1-16
即有两个1-16
选中两个1-16
按CTRL键拖动填充柄

编程解决