[英]Copy and paste value to the next 2 empty row looping
I currently have a code like this 我目前有这样的代码
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
I am trying to make my filenames auto loop to copy another 2 times until the end. 我试图使我的文件名自动循环以复制另外2次直到结束。
| A | to something like | A |
|123.jpg| |123.jpg|
| | |123.jpg|
| | |123.jpg|
|456.jpg| |456.jpg|
| | |456.jpg|
| | |456.jpg|
I have around 2000 unique jpg files. 我大约有2000个独特的jpg文件。
You did mistake here, and your range moves right by columns: 您在这里犯了错误,并且您的范围按列向右移动:
Set rng = rng.Offset(, COPY_SIZE + 1)
You need to move it by rows: 您需要按行移动它:
Set rng = rng.Offset(COPY_SIZE + 1)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.