0
我正在複製一個數組(Sheet1!A2:A831),並希望將它粘貼到Sheet2上!從A1開始每26排。寫一個宏,在每26行粘貼一個範圍
我用這個宏的工作,但我遇到了一些麻煩:
Sub test()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
Range("Sheet1!A2:A831").Copy
For i = 26 To LR Step 26
Range("A" & i).PasteSpecial Paste:=xlPasteFormulas
Next i
End Sub
爲什麼要複製800多行的範圍,然後每26行粘貼一遍? – 2012-07-06 05:50:30
只是組織SEO內容。每26行我開始一個新產品。我有830個產品。 – 2012-07-06 06:35:47
'ThisWorkbook.Sheets(「Sheet1」)。Range(「A2:A831」)。Copy'如果您只是使用Range()而不用工作表進行限定,那麼它默認爲ActiveSheet上的一個範圍沒有範圍從Sheet1上的Sheet1 ...) – 2012-07-06 06:49:51