说明: 为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") = TextBox
<wuzhi410823> 上传 | 大小:2mb