Question

我正在尝试找到一个单元并选择它和它下面的13行，这样我就可以复制选择到下一列并将其粘贴转置。

我的查询是：

If cell.Value Like "*OR-*" Then
    Cells(ActiveCell, cell.Offset(0, 13)).Select
    cell.Copy 
    cell.Offset(0, 1)
    cell.Clear

我对复制和粘贴没有任何问题，但选择我想要的东西会让我失望

Answer 1

首先，复制下面的13行是Cell.Offset(13,0)而不是Cell.Offset(0, 13)（右边是13列）。

其次，您无需Select Range复制它，只需使用以下代码：

If Cell.Value Like "*OR-*" Then
    Range(Cell, Cell.Offset(13)).Copy
    Cell.Offset(, 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    Cell.Clear
End If

Vba-excel - 在循环中复制一系列单元格

1 个答案: