如何修改此代码以粘贴到最后一行下的数据行?

时间:2015-11-27 11:12:51

标签: excel excel-vba vba

我把这些代码放在一起,它完美地工作,除了它将复制的单元格粘贴到它找到数据的最后一行,我需要将它粘贴到下面的行中。

如何将粘贴的位置向下移动一行?

auto maxBelowX = vec.end();
for (auto i = vec.begin(); i != vec.end(); ++i)
{
    if (*i <= x && (i == vec.end() || *i > maxBelowX)) {
        maxBelowX = i;
    }
}

if (maxBelowX == vec.end()) {
    std::cout << "There was no element <= x";
}

1 个答案:

答案 0 :(得分:0)

我将代码的底部更改为 -

Set LastCell = Cells(Rows.Count, "A").End(xlUp)

LastCell.Offset(1, 0).Select

 Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False

End Sub