-1

我试图从包含此代码的帖子中实现类似的代码。它可以很好地从指定的单元格复制,但我需要它从源粘贴单元格值而不是单元格内容(公式等)已经尝试了几件事,但都给出错误 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
4

1 回答 1

0
rngDest.Offset(0, i).Value = .Cells(arrColsToCopy(i)).Value
于 2013-09-17T18:06:11.003 回答