Question

急~如何在excel中使用宏进行批量复制~

偶是菜鸟~虚心求教~ 1.是这样的，偶想在excel表中批量复制，以便改动数据的位置。宏已经录制好了，但是不会改VBA编码。麻烦高手赐教啊~~编码如下： Sub Macro4() ' ' Macro4 Macro ' 宏由 微软用户 录制，时间: 2010-10-11 ' Range("B2:D2").Select Selection.Copy Range("B6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("E2:G2").Select Application.CutCopyMode = False Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("H2:J2").Select Application.CutCopyMode = False Selection.Copy Range("B8").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub 2.第二就是想录制一个宏，可以把一个区域的数据任意复制到表中的任何地方。编码如下，但还是不会改TAT Range("F33:J41").Select Selection.Copy ActiveWindow.SmallScroll Down:=12 Range("F50").Select ActiveSheet.Paste End Sub 3.最后再请教下，怎么在excel单元格中插入一条斜线，可以变成 年份/数值 这样的表头格式呢~~ 答得好的一定补分！ PS：哪位人品好的高手可以留个Q么，毕竟文字太抽象，偶不一定摆得平的说TAT。最近在做财务分析，高手们发发善心，助我摆脱一直CTRL+C,CTRL+V的惨痛生活吧~~

Answer 1

1.批量复制单元格
Sub
RangeCopy()
Dim
i
As
Integer,
k&
k
=
5
For
i
=
2
To
10
Step
3
k
=
k
+
1
Cells(2,
i).Resize(1,
3).Copy
Cells(k,
2)
Next
End
Sub
2。复制到任意单元析（即活动单元格）
Sub
ActiveCellCopy()
Range("F33:J41").Copy
ActiveCell
End
Sub
3。单元格设置斜线
右键单击单元格，在右键菜单中选择"设置单元格格式",在弹出的"单元格格式"对话框中选择选项卡"边框",就可以设置单元格的边框线或斜线了.
如有问题可以HI我.
QQ:605660513