[英]Copy and paste value to the next 2 empty row looping
我目前有這樣的代碼
Sub Rowname()
Const SHEET_NAME As String = "Sheet1"
Const START_ROW As String = "A"
Const ROW_NUM As Long = 1
Const COPY_SIZE As Integer = 2
Dim rng As Range
Set rng = ThisWorkbook.Worksheets(SHEET_NAME).Cells(ROW_NUM, START_ROW)
Do Until IsEmpty(rng)
rng.Offset(1, 0).Resize(COPY_SIZE, 1) = rng.Value2
Set rng = rng.Offset(, COPY_SIZE + 1)
Loop
End Sub
我試圖使我的文件名自動循環以復制另外2次直到結束。
| A | to something like | A |
|123.jpg| |123.jpg|
| | |123.jpg|
| | |123.jpg|
|456.jpg| |456.jpg|
| | |456.jpg|
| | |456.jpg|
我大約有2000個獨特的jpg文件。
您在這里犯了錯誤,並且您的范圍按列向右移動:
Set rng = rng.Offset(, COPY_SIZE + 1)
您需要按行移動它:
Set rng = rng.Offset(COPY_SIZE + 1)
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.