<p>Columns("B").Replace What:="0", Replacement:="", LookAt:=xlWhole查找和替换听的不是很懂</p><p>sub tm3()</p><p>dim k as long</p><p>with sheets("库存表")</p><p>k=.range("a65536").end(xlup).row+1</p><p>.cells(k,1)=range("d4")</p><p>.cells(k,2)=range("d6")</p><p>.cells(k,3)=range("d8")</p><p>end with</p><p>msgbox "输入成功!"</p><p>range("d4")=""</p><p>range("d6")=""</p><p>range("d8")=""</p><p>end sub</p><p>请大家帮我看看,我的公式是不是有问题,为什么我总是执行不了呢,根本没有办法把数据导入到“库存表”中,而且前一个数据输入完毕后也没有办法自动清空,帮帮我吧</p>
[此贴子已经被作者于2007-12-7 9:05:41编辑过] |