如果列M中的值等于x，则列A应等于列E.

Posted 2021-03-27

我需要从列L的顶部开始然后逐行向下直到最后一行。

• 如果列L = 8中的值，则将E列中的值复制到A列中。
• 如果列L = 7的值，则将E列中的值复制到B列中。

我收到的错误是：

Object_Global的方法范围失败（1004）

    Sub CopyVals()

    Dim lngLoop As Long, lngRow As Long

    Do Until IsEmpty(ActiveCell)
        If Range("L" & lngLoop).Value = 8 Then
            Range("E" & lngLoop).Copy Range("A" & lngLoop)

        ElseIf Range("L" & lngLoop).Value = 7 Then
            Range("E" & lngLoop).Copy Range("B" & lngLoop)
        End If
        ActiveCell.Offset(1, 0).Select
    Loop

    End Sub

答案

Sub CopyVals()

Dim lngLoop As Long

lngLoop = 1

For lngLoop = 1 To Rows.Count
  If Cells(lngLoop, 12).Value = "8" Then Cells(lngLoop, 1).Value = Cells(lngloop, 5).Value   

  If Cells(lngLoop, 12).Value = "7" Then Cells(lngLoop, 2).Value = Cells(lngloop, 5).Value

Next lngLoop
End Sub