vba复制某些范围并粘贴为图片

时间:2018-04-30 01:42:20

标签: excel vba excel-vba

现在我可以将整个边框从Sheet1复制到Sheet2,但我的问题是我无法使用标题复制特定范围,如最后10列值。例如,当在O列输入新值时,它只会将带有标题的F从F复制并粘贴到O.

Worksheets("sheet1").Select
Set startcell = Range("B2")
startcell.CurrentRegion.CopyPicture xlScreen, xlBitmap
Sheets("Sheet2").Select
Range("B2").Select
ActiveSheet.Paste

example of image

3 个答案:

答案 0 :(得分:0)

假设您可以手动执行此任务(无需VBA),您现在想要自动执行:

使用 宏记录器 记录您手动完成此操作的步骤,然后 编辑 宏来查看VBA代码,删除任何无关的部分,您将留下您正在寻找的代码。

此过程可用于您知道如何手动(使用Excel)内置功能但您想要自动执行的任何任务。

这就是我今天学到VBA知识的前半部分。这是一个好的"骗子"开始使用VBA的方法。

更多信息:

答案 1 :(得分:0)

试试这个:

spring.application.name=book
server.port=8090

答案 2 :(得分:0)

你可能在此之后

Sub main()
    With Worksheets("Sheet1").Range("B2").CurrentRegion
        If .Columns.Count > 11 Then .Columns(2).Resize(.Columns.Count - 11).EntireColumn.Hidden = True
        .CopyPicture xlScreen, xlBitmap
        Sheets("Sheet2").Range("B2").PasteSpecial
        .EntireColumn.Hidden = False
    End With
End Sub