复制单元格范围内的粘贴值

Question

继上一个问题之后，我现在想要在一个单元格范围内复制粘贴值。

我之前的查询中使用的代码是;

C6:N6

我修改了下面脚本中的代码，检查值= Yes的单元格范围C9:N9，然后将粘贴值复制到Sub CopyYesInForecast() Dim lastRow As Long, i As Long 'determine last row in column W lastRow = Cells("C6") For i = 1 To lastRow 'if Yes in W then copy from P to W in current row If Cells(i, "C6:N6").Value = "Yes" Then Cells(i, "C9:N9").Value = Cells(i, "C9:N9").Value End If Next End Sub 中的单元格上。但是我不确定我做错了什么。存在运行时错误“5”无效过程调用或参数

{{1}}

Answer 1

虽然你的叙述很薄，但也许这与你正在尝试的内容很接近。

Sub CopyYesInForecast()
    Dim c As Long

    For c = range("C:C").column to range("N:N").column
        If Cells(6, c).Value = "Yes" Then
            Cells(9, c) = Cells(6, c).Value
        End If
    Next
End Sub

这将查看第6行，C列到N，如果找到是，则会将值传输到第9行的同一列。