EXCEL VBA 复制：快速复制单元格的上一行数据。

用find来查找，并用doloop while来循环。将下面的代码放在worksheet的change事件中。

If TargetAddress = "$G$1" Then
    Sheet1Range("I:L")Clear
    Set mycell = Sheet1Range("A:A")Find(Sheet1Range("G1")Value, lookat:=xlWhole)
    If Not mycell Is Nothing Then
        mycellfirstaddress = mycellAddress
        xrow = 1
        Do
            If mycellRow > 1 Then
                Sheet1Range("A" & mycellRow & ":D" & mycellRow)Select
                SelectionCopy
                Sheet1Range("I" & xrow)Select
                SelectionPasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                    :=False, Transpose:=False
                Sheet1range("G1")Select
                xrow = xrow + 1
            End If
            Set mycell = Sheet1Range("A:A")FindNext(mycell)
        Loop While Not mycell Is Nothing And mycellAddress <> mycellfirstaddress
    End If
End If

在office2010版本中的excel中可以通过以下方式实现：

1选中行内容，鼠标移到选框的右下角，在鼠标光标变成实心十字时，向下拖拽。

2如果出现填充序列的情况，可以点击后面的填充选项，选择复制单元格即可。

1打开WPS表格,新建表格,输入已知数据;
2鼠标框选空白行,按Ctrl+D快速复制上一行内容;
3鼠标框选空白列,按Ctrl+R快速复制左侧列内容;
4按住Ctrl,鼠标点击需要插入内容的单元格,选择完成后在最后一个单元格输入需要填
5按Ctrl+Enter键快速填充所有选中的单元格;

---