vba - VBA 代码中的“选择性粘贴”不起作用

Question

我一直在阅读并尝试代码，但它仍然无法工作。有人可以告诉我我做错了什么吗？我的 Excel 文件在一个选项卡上有公式，我试图将特殊内容复制并粘贴到另一个选项卡上，但我尝试的所有操作都是粘贴公式而不是我需要的文本输出。

Dim rowCount2 As Long, shtSrc As Worksheet
Dim shtDest As Worksheet
Dim rng2 As Range
Dim currentRow As Long

Set shtSrc = Sheets("Data")
Set shtDest = Sheets("Audit")

rowCount2 = shtSrc.Cells(Rows.Count, "A").End(xlUp).Row

Set rng2 = shtSrc.Range("A1:A" & rowCount2)

currentRow = 1

For Each cell2 In rng2.Cells
    If cell2.Value <> "" Then
          cell2.Copy shtDest.Range("B" & currentRow).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
          cell2.Offset(0, 1).Copy ("C" & currentRow)
          cell2.Offset(0, 2).Copy ("G" & currentRow)
        currentRow = currentRow + 1

    End If
Next cell2

Answer 1

您不能将 PasteSpecial 与 Copy 方法的目标参数一起使用 - 您必须使用单独的操作，但由于您仅复制单个单元格，因此可以只分配值:

shtDest.Range("B" & currentRow).Value2 = cell2.Value2
shtDest.Range("C" & currentRow).Value2 = cell2.Offset(0, 1).Value2
shtDest.Range("G" & currentRow).Value2 = cell2.Offset(0, 2).Value2