我正在尝试创建一个宏,它将复制一系列值,例如B6:BM6
并将其粘贴到下面的行中如果在A列中有值。
所以:如果填充了列A6
,则从上面的行复制范围并将它们粘贴到B6
中。循环直到A列中没有值。
Sub fillEmptycells()
Dim i As Integer
Dim lastRow As Integer
With ActiveSheet
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
For i = 2 To lastRow
If IsEmpty(.Cells(i, 2)) And Not IsEmpty(.Cells(i, 1)) Then
.Range(Cells(i - 1, 2), Cells(i - 1, 100)).Copy .Cells(i, 2)
End If
Next i
End With
End Sub
有谁可以帮助我吗?
目前,您只复制一个单元格,而不是整个范围。您需要更改调用Copy方法的范围,以包括要复制的所有单元格。 If语句中的代码将更改为:
.Range(Cells(i-1,2),Cells(i-1,x)).Copy .Cells(i,2)
其中x将是您要复制的最后一列的列号。