【VBA】配列の縦横変換｜WorksheetFunction.Transpose は使わない

' Transpose a 2D Variant array; preserve caller's base
' 2次元Variant配列を転置。呼び出し側の基底を維持。

Public Function TransposeArray(ByRef ary As Variant) As Variant
	' Basic validation｜基本検証
	If Not IsArray(ary) Then
		Err.Raise 5, "TransposeArray", "Input must be an array｜配列を渡してください"
	End If

	' Get bounds for dim1 and dim2; if dim2 fails, it's not 2-D
	' 第2次元の境界が取れない場合は2次元ではないとみなす
	Dim rL As Long, rU As Long
	Dim cL As Long, cU As Long

	On Error GoTo Not2D
	rL = LBound(ary, 1): rU = UBound(ary, 1)
	cL = LBound(ary, 2): cU = UBound(ary, 2)
	On Error GoTo 0

	' Allocate result with swapped dimensions; keep bases
	' 次元を入れ替え、基底はそのまま
	Dim tmp As Variant
	ReDim tmp(cL To cU, rL To rU)

	' Transpose core｜転置本体
	Dim r As Long, c As Long
	For r = rL To rU
		For c = cL To cU
			tmp(c, r) = ary(r, c)
		Next c
	Next r

	TransposeArray = tmp
	Exit Function

Not2D:
	Err.Clear
	Err.Raise 5, "TransposeArray", "Only 2D arrays are supported｜2次元配列のみ対応"
End Function