Выбор отдельных строк и вставка их транспонирования

Question

Мне нужно скопировать определенные строки с листа и вставить его транспонирование на другом листе.
Было бы здорово, если бы кто-нибудь предоставил мне код макроса для этого.

Answer 1

Вы можете использовать записи макросов, чтобы получить это, довольно просто:

Sub test() 
Dim ws1 as Worksheet, ws2 as Worksheet 
Dim rng As Range, destRng As Range 
Set ws1 = Sheets("Sheet1") 
Set ws2 = Sheets("Sheet2") 
Set rng = ws1.Range("A1:A10") 
Set destRng = ws2.Range("B1:K1") 

rng.Copy 
destRng.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True 

End Sub