复制单个单元格并将其粘贴到由相邻单元格值确定的位置

Question

我在工作表1的单元格H17中有一个值。它紧靠单元格G17中的值的下拉列表。我想将H17复制并粘贴到C列中G17与B列中的值匹配的相邻位置。所有这些操作都在同一工作表上完成。

我还没有尝试过任何VBA方法，但是花了太长时间试图找到解决方案。

Answer 1

以下是一些VBA代码，可以执行您想要的操作：

Sub CopyConditional()
    Dim monthRange As Range
    Set monthRange = Range("B2", Range("B2").End(xlDown))

    For Each cell In monthRange.Cells
        If cell.Value = Range("G17").Value Then
            cell.Offset(0, 1).Value = Range("H17").Value
        End If
    Next
End Sub

这将首先查找所有月份（假设表中没有间隔），然后循环遍历并与G17中的值进行比较。如果它们匹配，它将把H17中的值复制到相邻的单元格中。