[已解决]请教一个数据添加问题

海水鱼

请看附件：谢谢！ 8rSmwDbv.rar (2.03 KB, 下载次数: 4)

2010-4-5 11:06 上传

点击文件名下载附件
请教一个数据添加问题

最佳答案

月排行榜 / 总排行榜

枯禅

2010-4-5 11:13

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i%
If Target.Address = "$A$1" Then
    i = [a2:a65536].Find(what:=Target, lookat:=xlWhole).Row
    Range(Cells(i, 2), Cells(i, 11)).Value = [b1:k1].Value
End If
End Sub

跳转到最佳答案楼层

枯禅

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i%
If Target.Address = "$A$1" Then
    i = [a2:a65536].Find(what:=Target, lookat:=xlWhole).Row
    Range(Cells(i, 2), Cells(i, 11)).Value = [b1:k1].Value
End If
End Sub

zsd5237

学习[em02][em02]