如何才能在凭证页面输入,在另一页流水保存（高跃勋）

054czz

<p>Sub 按钮1_单击()<br/>i = Sheet2.[c65536].End(xlUp).Row<br/>Sheet2.Cells(i + 1, 1) = Sheet1.Cells(4, 4)<br/>Sheet2.Cells(i + 1, 2) = Sheet1.Cells(6, 2)<br/>Sheet2.Cells(i + 1, 3) = Sheet1.Cells(6, 3)<br/>Sheet2.Cells(i + 1, 4) = Sheet1.Cells(6, 4)<br/>Sheet2.Cells(i + 1, 5) = Sheet1.Cells(6, 5)<br/>Sheet2.Cells(i + 2, 2) = Sheet1.Cells(7, 2)<br/>Sheet2.Cells(i + 2, 3) = Sheet1.Cells(7, 3)<br/>Sheet2.Cells(i + 2, 4) = Sheet1.Cells(7, 4)<br/>Sheet2.Cells(i + 2, 5) = Sheet1.Cells(7, 5)</p><p><br/>End Sub<br/></p><p>谢谢<strong>xfgaokun</strong></p>

zgx854

<p>可谓会者不难嘛!</p><p>看来学EXCEL,不会VBA就等于白学哦!</p><p>原以为VBA神秘,我不打算学.看来只要想学,在论坛上多逛逛也会逐渐通的哦!</p>

rjtang

学了，谢谢！