时间戳

首页 > 解决方案 > 复制单个单元格并粘贴到由相邻单元格值确定的位置

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

问题描述

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

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

电子表格示例

标签： excelvba

解决方案

这是一些 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 复制到相邻的单元格。

推荐阅读