|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
沒有那麼複雜, 保留1~17行的格式及標題+底標:
Sub TEST()
Dim R&, xR As Range, i&
Call ClaerAll
Set xR = Sheet2.[A1]
R = Sheet1.[B65536].End(xlUp).Row
For i = 1 To R Step 10
If i > 1 Then Sheet2.Rows("1:17").Copy xR
xR(6).Resize(10, 10) = Sheet1.Cells(i, 1).Resize(10, 10).Value
Set xR = xR(18)
Next i
End Sub
'==============================
Sub ClaerAll()
With Sheet2
.UsedRange.Offset(17, 0).EntireRow.Delete
.Range("A6:J15").ClearContents
.[A1].Select
End With
End Sub
Xl0000287.rar
(21.7 KB, 下载次数: 40)
|
评分
-
3
查看全部评分
-
|