vba - CopyPaste 宏(Pastespecial、查找和替换)

Question

我一直在这里使用一个简单的复制粘贴示例，现在需要开始使用特殊粘贴和查找和替换。

例如，我有 A、B、E 列。我想将B的内容复制到E。

所以我使用的是:

Sub sbCopyRange()

Range("B2:B10").Copy
Range("E2").Select
ActiveSheet.Paste
Application.CutCopyMode = False

End Sub

现在我需要它是一个特殊的粘贴，以及查找和替换所有“^”并将它们替换为 (CntrlShift+ J) 以便它在所有“^”处创建换行符。我以为我可以使用记录功能来做到这一点，但是在为更大文档中的新范围调整它时我注意到了一些问题。

有人可以帮忙吗？

Answer 1

要复制到另一个目标，您只正确选择了左上角的单元格作为目标，但有一个用于单个操作的缩写复制命令。

With ActiveSheet  '<- set this to something like With Sheets("Sheet1")
    .Range("B2:B10").Copy _
        Destination:=.Range("E2")
End With

您还可以执行直接值传输，这相当于复制、选择性粘贴、值，但需要调整目标大小以适合源。但是，由于您想在目标单元格上执行替换，所以无论如何您确实需要它的尺寸。

Dim rng As Range
With ActiveSheet  '<- set this to something like With Sheets("Sheet1")
    Set rng = .Range("B2:B10")
    With .Range("E2").Resize(rng.Rows.Count, rng.Columns.Count)
        .Value = rng.Value
        .Replace what:=Chr(94), replacement:=Chr(10), lookat:=xlPart
    End With
End With