Как сменить строку на столбец

Question

Я новичок в макросах excel. Мои требования:

Для данной матрицы, которая имеет один столбец с несколькими строками, мне нужно изменить эти строки на столбец на следующем листе (говорит sheet2).

Col1 
xyz 
pqr 
abc 

Это нужно изменить строки в sheet2 следующим образом:

xyz pqr abc 

Это то, что я пробовал:

Sub rowToCol() 
    Dim i As Integer 
    Dim n As Integer 
    n = Application.WrokSheetFunction.CountIf(Range("A2:A4"), "Col1") 

    For i = 1 To n 
     Sheet2.Cells(i, 1) = Sheeti.Cells(1, i) 
    Next 
End rowToCol 

Answer 1

Простой Записанный макрос для транспонирования.

Sub Macro2() 

    ActiveWorkbook.Sheets(1).Select 
    Range("A" & 2).Select 
    Range(Selection, Selection.End(xlDown)).Select 
    Selection.Copy 


    ActiveWorkbook.Sheets(2).Select 
    Range("A1").Select 
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ 
     False, Transpose:=True 
End Sub 

Answer 2

Это всегда удобно, чтобы избежать Select ИНГ объектов/диапазонов, если строго не требуется. Таким образом, вы использовали бы ссылки на те объекты/диапазоны, в вашем случае как

Sub trnsp() 
    Dim rng1 As Range, rng2 As Range 
    Set rng1 = Worksheets("Sheet1").Range("A2:A4") 
    rng1.Copy 
    Set rng2 = Worksheets("Sheet2").Range("A1") 
    rng2.PasteSpecial Paste:=xlPasteAll, Transpose:=True 
End Sub 

При необходимости вы должны изменить названия листов и диапазоны.