java excel 增加sheet_将VBA代码添加到动态创建的Excel工作表中

正如@cyboashu所说,只需复制工作表,它将复制所有公式和格式 . 此时,仍然可以对单个工作表进行任何其他更改 . 它们不是链接副本 .

这是一个快速而脏的宏,用于将工作表(1)复制到工作簿的末尾并重命名 . 如果需要进行任何格式化,可以在使用ActiveSheet进行粘贴后立即执行此操作 . 将新的Activesheet分配给变量以便稍后引用是更好的做法,但我不能100%确定如何在不进一步深入的情况下做到这一点 . 也许有人可以详细说明 .

Sub copysheet()

Dim Mainws As Worksheet

Dim Mainwb As Workbook

Set Mainwb = ThisWorkbook

Set Mainws = ThisWorkbook.Worksheets(1)

i = Mainwb.Worksheets.Count

With Mainwb

Mainws.Copy after:=Worksheets(i)

Worksheets(i + 1).Name = "Copied Worksheet"

End With

With ActiveSheet

Cells(1, 1).Value = "Copied Sheet"

'other formatting changes

End With

'increment i variable if you plan to make more copies in a loop

'i = Mainwb.Worksheets.Count

End Sub

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值