我编写了一个代码,用于从Sheet3复制数据(连续)并将粘贴转置到Sheet2中的COLUMN c但是,我需要根据Sheet2列A1到A4000中的ID与列D1匹配的条件来中断复制和粘贴的行到D4000 .
循环通过Sheet3中的行并通过向右填充它来粘贴它,即转置 .
例如:
SHEET 3:
1 202 Anna
2 202 Mary
3 202 Gary
4 204 France
5 204 Greece
6 301 London
7 301 Alice
8 301 Mandy
9 406 HongKong
10 406 Osaka
应该粘贴到表2中:
A B C D
1 202 Anna Mary Gary
2 204 France Greece
3 301 London Alice Mandy
这是我目前的代码:
Dim Sourcerange As Range
Dim Targetrange As Range
Set Sourcerange = Sheet3.Range("N3:N4105")
Set Targetrange = Sheet2.Range("C1:C4105")
Sourcerange.Copy
Targetrange.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, _
Transpose:=True
End Sub
我想循环遍历行,而不必从代码中更改源范围或目标范围 .
1 回答
这是解决方案之一
来源表3
输出表2