[英]Copy cell value to a range of cells
I'm new to VBA and I am trying to copy values from one cell to multiple cells when its value changes. 我是VBA的新手,我想在其值更改时将值从一个单元格复制到多个单元格。
The value of A2 is constantly changing and when that happens I want that value to be copied to cells C2:C21 (and then eventually to cells D2:D21) A2的值在不断变化,当发生这种情况时,我希望将该值复制到单元格C2:C21(然后最终复制到单元格D2:D21)
Here is an example of what I would like to achieve: 这是我要实现的示例:
http://i.stack.imgur.com/xJZyZ.jpg http://i.stack.imgur.com/xJZyZ.jpg
So far I wrote this code: 到目前为止,我编写了以下代码:
Sub Worksheet_Change(ByVal Target As Range)
For i = 0 To 19
If Not Intersect(Target, Range("AS2")) Is Nothing Then
Cells(Target.Row + i, 58).Value = Cells(Target.Row, 45).Value
End If
Next i
End Sub
but this only copies one single value of A2 to all the cells C2 to C22. 但这仅将一个A2值复制到所有单元格C2至C22。
May anyone help me write this code properly? 谁能帮我正确编写此代码?
Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("AS2")) Is Nothing Then
For CurCol = 3 to 4
For CurRow = 2 to 21
If Cells(CurRow, CurCol).Value = "" Then
Cells(CurRow, CurCol).Value = Target.Value
Exit Sub
EndIf
Next CurRow
Next CurCol
End If
End Sub
I guess this is what you're after: 我想这就是你所追求的:
Option Explicit
Sub Worksheet_Change(ByVal Target As Range)
Dim nVals As Long
If Not Intersect(Target, Range("A2")) Is Nothing Then
With Range("C2:D21")
nVals = WorksheetFunction.CountA(.Cells)
If nVals = .Count Then Exit Sub
Application.EnableEvents = False
On Error GoTo exitsub
.Cells(nVals Mod .Rows.Count + 1, IIf(nVals >= .Rows.Count, 2, 1)).Value = Target.Value
End With
End If
exitsub:
Application.EnableEvents = True
End Sub
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.