|

楼主 |
发表于 2007-10-1 16:25
|
显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
<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> |
|