[已解决]求这段代码的写法~！！！

lenovo0312

1	D列	E列
2	数据
3	1	华硕
4	2	明基	点击E列的数据，把相同行的数据自动粘贴到SHEET1的F1显示
5	3	惠普
6	4	联想
7	5	三星
8
9
10
11
12
13
								Book1.rar (6.21 KB, 下载次数: 19) 2011-12-27 13:33 上传 点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

80013025

2011-12-27 14:06

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 And Target.Row > 2 And Target.Count = 1 Then
  Sheet1.[f1] = Cells(Target.Row, 4).Value
End If
End Sub

跳转到最佳答案楼层

windimi007

没看明白，楼主要不再发个效果图吧！{:3912:}

wayy

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Column = 5 Then
   
3.   Sheet1.[f1] = Target.Value
   
4. End If
   
5. End Sub
   

复制代码

80013025

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 And Target.Row > 2 And Target.Count = 1 Then
  Sheet1.[f1] = Cells(Target.Row, 4).Value
End If
End Sub