excel 选择内容自动填充边上三列数据VBA
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
页:
[1]