输入表格界面

为Excel编个智能输入器ExcelPrivate Sub CommandButton1_Click() Range("A1").Select '选中A1单元格 Selection.End(xlDown).Select '将光标定位到最后一行第一个单元格中 ActiveCell.Offset(1, 0).Range("A1") = TextBox1.Text '将相应的数据输入到表格下一行的相应单元格中 ActiveCell.Offset(1, 0).Range("B1") = TextBox2.Text ActiveCell.Offset(1, 0).Range("C1") = TextBo