私人小组CommandButton2_Click()
对于i = 1到[A65536]。结束(xlUp)。行
??Cells.Find(什么:= TextBox1.Text,后::= ActiveCell)的。激活
??ActiveCell.Offset(0,5)。激活
?如果ActiveCell.FormulaR1C1 = TextBox2.Text,然后退出对于
??ActiveCell.FormulaR1C1 = TextBox2.Text
下
END SUB
没有想到允许文本溢出这个竟然在宏里面不记录。
nhgnghnng