Question

当我尝试以下代码时，它会做正确的事情（即查找最后一行，副本和粘贴），除了它只粘贴新表中行的第一个值：

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

如何让它从B中拉出整行范围：我并粘贴新表而不是第一个值？

提前获得帮助！

Answer 1

尝试：

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)

查找上次填充的行，将值复制并转置到列中

1 个答案: