excel 选择内容自动填充边上三列数据VBA

nnsea

Private Sub ComboBox1_Click()
ActiveCell = ComboBox1.Text
    Set Rng = Sheets("数据").Range("A:A").Find(ActiveCell, , , xlWhole)
    ActiveCell.Offset(0, 1) = Rng.Offset(0, 1)
    ActiveCell.Offset(0, 2) = Rng.Offset(0, 2)
    ActiveCell.Offset(0, 3) = Rng.Offset(0, 3)
End Sub