Question

在用户在第2列中选择值时的excel文件中，我根据选择在第一列中设置值。我已在Private Sub Worksheet_Change(ByVal Target As Range)方法中编写了该代码。

但是，当用户复制并粘贴多行时，仅为复制范围中的第一行设置该值。任何人都有想法设置所有值。

Answer 1

您可以使用“for”循环遍历目标中的所有单元格。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cel As Range

If Not Intersect(Target, Range("B:B")) Is Nothing Then
    For Each cel In Target
      cel.Offset(0, -1) = "Some Value"
    Next cel
End If
End Sub

更改excel中复制范围的列值

1 个答案: