A1:A10
选中这中间哪个单元格它的值就等于B1
当然没值时不等B1选A1就A1=B1
选A2就A2就A2=B1
在SelectionChange中写代码,示范代码如下,你可以研究一下:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cl
Set cl = ActiveCell
If Trim(Cells(1, 2).Value) = "" Then Exit Sub
If cl.Row >= 1 And cl.Row <= 10 And cl.Column = 1 Then
cl.Value = Cells(1, 2).Value
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cl
Set cl = ActiveCell
If Trim(Cells(1, 2).Value) = "" Then Exit Sub
If cl.Row >= 1 And cl.Row <= 10 And cl.Column = 1 Then
cl.Value = Cells(1, 2).Value
End If
End Sub
温馨提示:答案为网友推荐,仅供参考