Question

我有一张表＆＃34; Creation＆＃34;我需要数据的地方。我有第二张＆＃34;憎恶＆＃34;我需要从哪里提取数据。在Abomination中，我有一个从D6开始的行数据。 n创建我有一个第一个单元格B2的列，其中来自憎恶的数据需要去。 “憎恶之行”和“创造之列”都将在细胞方面有所不同。基本上憎恶是我将从中提取数据的相同格式的许多表格之一。此代码仅从憎恶中提取最后一个单元格值：

Sub Bob()

Dim Creation As Worksheet
Dim Abomination As Worksheet
Dim destRange As Range
Dim sourcerange As Range
Set Creation = Worksheets("Creation")
Set Abomination = Worksheets("Abomination")

With Abomination

Set sourcerange = .Range("D6").End(xlToRight)

End With

With Creation

Set destRange = .Range("B2")

End With

sourcerange.Copy

destRange.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

End Sub

Answer 1

Set sourcerange = .Range("D6").End(xlToRight)

使用End（）不会扩展 D6的范围，它只会移动到模仿按Ctrl+right arrow的其他范围

也许你想要这样的东西：

Set sourcerange = .Range(.Range("D6"), .Range("D6").End(xlToRight))

如何将唯一值的行从工作表复制到第二个工作表中的列

1 个答案: