|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
或者:
Private Sub CommandButton1_Click()
r1 = Sheet1.[a65536].End(xlUp).Row
For i = 2 To r1
r = Sheet2.[a65536].End(xlUp).Offset(1).Row
Sheet2.Cells(r, 2) = Sheet1.Cells(i, 1)
Sheet2.Cells(r, 3) = Sheet1.Cells(i, 2)
Sheet2.Cells(r, 4) = Sheet1.Cells(i, 12)
Sheet2.Cells(r, 5) = Sheet1.Cells(i, 3)
Sheet2.Cells(r, 6) = Sheet1.Cells(i, 22)
Sheet2.Cells(r, 7) = Sheet1.Cells(i, 6)
Sheet2.Cells(r, 8) = Sheet1.Cells(i, 24)
Sheet2.Cells(r, 9) = Sheet1.Cells(i, 13)
Sheet2.Cells(r, 10) = Sheet1.Cells(i, 11)
Sheet2.Cells(r, 11) = Sheet1.Cells(i, 14)
Sheet2.Cells(r, 12) = Sheet1.Cells(i, 8)
Sheet2.Cells(r, 13) = Sheet1.Cells(i, 5)
Sheet2.Cells(r, 14) = Sheet1.Cells(i, 16)
Sheet2.Cells(r, 15) = Sheet1.Cells(i, 17)
Sheet2.Cells(r, 16) = Sheet1.Cells(i, 18)
Sheet2.Cells(r, 17) = Sheet1.Cells(i, 19)
Sheet2.Cells(r, 18) = Sheet1.Cells(i, 20) + Sheet1.Cells(i, 21)
Sheet2.Cells(r, 19) = Sheet1.Cells(i, 21)
Sheet2.Cells(r, 20) = Sheet1.Cells(i, 20)
Sheet2.Cells(r, 1) = Sheet2.Cells(i + 1, 7) & "_" & Sheet2.Cells(i + 1, 12)
Next
End Sub |
|