Question

我试图从包含此代码的帖子中实现类似的代码。它可以很好地复制指定的单元格，但我需要它从源代码粘贴单元格值而不是单元格内容（公式等）已经尝试了几个但是都会出错 TIA

Sub AlonsoApprovedList()

    Dim cell As Range
    Dim rngDest As Range
    Dim i As Long
    Dim arrColsToCopy

    arrColsToCopy = Array(1, 3, 4, 5)

    '----For every cell in row G on the ESI Project Data sheet----'
    Set rngDest = Worksheets("Alonso Approved List").Range("A3")

    Application.ScreenUpdating = False

    For Each cell In Worksheets("ESI Project Data").Range("G6:G5000").Cells

        If cell.Value = "Card" Then

            For i = LBound(arrColsToCopy) To UBound(arrColsToCopy)
                With cell.EntireRow
                    .Cells(arrColsToCopy(i)).Copy rngDest.Offset(0, i)
                End With
            Next i

            Set rngDest = rngDest.Offset(1, 0) 'next destination row

        End If

    Next cell

    Application.ScreenUpdating = True

End Sub

Answer 1

rngDest.Offset(0, i).Value = .Cells(arrColsToCopy(i)).Value

VBA Excel粘贴值混淆

1 个答案: