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

发布网友发布时间：2022-05-01 12:53

共1个回答

热心网友时间：2023-11-04 13:13

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

热心网友时间：2023-10-13 12:16

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

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com