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

Question

现在我可以将整个边框从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

Answer 1

假设您可以手动执行此任务（无需VBA），您现在想要自动执行：

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

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

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

更多信息：

• MSDN：Recording a Macro to Generate Code

• MSDN：Revising Recorded Visual Basic Macros

Answer 2

试试这个：

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

Answer 3

你可能在此之后

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