vba - Excel与粘贴作为图片重复一列

Question

我已经尝试了一些为类似宏建议的代码。

我需要将 L 列中的单元格中的信息单独粘贴为 M 列中的图片。我不想为数百个项目中的每一个项目一遍又一遍地手动执行此操作。

这是没有循环或重复的样子。只做了两次手术。

Sub pasteaspicture()


pasteaspicture Macro

    Range("L3").Select
    Selection.Copy
    Range("M3").Select
    ActiveSheet.Pictures.Paste.Select
    Range("L4").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("M4").Select
    ActiveSheet.Pictures.Paste.Select
End Sub

谢谢。

Answer 1

这段代码应该从第 3 行循环到 L 列的末尾，如果这不是您想要的，那么我可以为您编辑它。

Application.screenupdating = False
With ActiveSheet
   LastRow = .Cells(.Rows.Count, "L").End(xlUp).Row
End With

For i = 3 To LastRow
    Range("L" & i).Copy
    Range("M" & i).Select
    ActiveSheet.Pictures.Paste.Select
Next i

 Application.screenupdating = true

此代码应该可以工作，但它包含一个选择，这在 VBA 中是不需要的，但由于我不知道如何使用图片粘贴，所以我将您的代码用作模板。