VBA实现Excel行列转置

VBA给Excel单元格赋值的时候，如果是给一行赋值，可以用一维数组，如果是给一列赋值，就需要把一维数组转置成二维数组。

参考以下案例。

标题放在一维数组，给一行赋值的时候，可以直接赋值给Range区域；而给一列赋值的时候，需要用Transpose把一维数组转置成二维数组。

'
' 输入标题行/标题列
'
Sub 输入标题行列()
    Dim arrTitles As Variant
    
    ' 标题
    arrTitles = Array("ID", "姓名", "性别", "地址", "电话", "邮箱")
    ' 写一行
    [A15].Resize(, GetLength(arrTitles)) = arrTitles
    ' 写一列
    [A15].Resize(GetLength(arrTitles), 1) = WorksheetFunction.Transpose(arrTitles)
End Sub