如何将数据复制到空行然后在Excel中删除原始

Posted 2021-04-03

我在excel编码时遇到困难，无法弄清楚如何做我需要的一切。我正在尝试从一行中获取数据，在同一工作簿的同一工作表的不同区域中搜索空行，使用仅值设置复制数据，然后删除原始数据。

这是我到目前为止的唯一问题是我不确定如何告诉它粘贴数据。问号表明我被困在哪里。我是否还需要其他东西，或者我可以直接进入代码的“selection.pastespecial”部分吗？

非常感谢任何帮助或指导，谢谢！

   Sub Find_Blank_And_Fill()
    Dim cnter As Integer

    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    cnter = 0

    For i = 1 To lastRow
        If IsEmpty(Cells(i, 1)) Then
            Range("B29:F29").Select
            Selection.copy
            ????
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
            End Select
            cnter = cnter + 1
        End If
    Next i
End Sub

有一张照片可以让我更容易理解，如果我没有传达它。

此致

ProWHP

答案

你已经得到了什么。但是，我会进行以下编辑：

Sub Find_Blank_And_Fill()
Dim cnter As Integer

lastRow = Cells(Rows.Count, 1).End(xlUp).Row
cnter = 0
Range("B29:F29").copy 'Avoid using "Select"! Also, this way you only copy once.

For i = 3 To lastRow 'Start your fill operation after your known rows
    If IsEmpty(Cells(i, 1)) Then
        Cells(i,2).PasteSpecial Paste:=xlPasteValues 'Simplified
        cnter = cnter + 1 'Why is this here?  It's counting empty rows right now
    End If
Next i
application.cutcopymode = false 'Turns off the box around the area you copied
End Sub