Excel 查找最后填充的行，将值复制并转置到列中

当我尝试以下代码时，除了只粘贴新表中行的第一个值外，它做的一切都是正确的（即查找最后一行，复制并粘贴）：

Sheets("x").Select
Range("B" & Rows.Count).End(xlUp).Copy
Sheets("y").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=True

如何使它从B:I中提取完整的行范围并粘贴到新表中，而不仅仅是第一个值

非常感谢您的帮助

试试看：

Sheets("x").Range("B" & Rows.Count).End(xlUp).Resize(1,8).Copy
Sheets("y").Range("A1").PasteSpecial Paste:=xlValues, Transpose:=True

或避免复制/粘贴：

Dim rng As Range

Set rng = Sheets("x").Range("B" & Rows.Count).End(xlUp).Resize(1, 8)

Sheets("y").Range("A1").Resize(rng.Rows.Count, 1).Value = _
                             Application.Transpose(rng.Value)

---

您只复制了工作表x上的一个单元格。你想复制整行吗？