选中多个A列的单元格，然后让B列的同行单元格都填充相同的数字

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
target.offset(0,1)="你好"
end if
end sub

1. Private Sub Worksheet_Change(ByVal Target As Range)

2.     If Target.Column = 1 Then

3.         ActiveCell.Offset(0, 1).Resize(Target.Count, 1) = "你好"

4.     End If

5. End Sub