2016-02-16 35 views

回答

1

使用此子分類:

Sub ColumnToRow() 
    Sheets("Sheet1").Select 
     Range("A1:A" & Range("A1").End(xlDown).Row).Select 
     Selection.Copy 
     Sheets("Sheet2").Select 
     Range("A1").Select 
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True 
End Sub