【VBA】一次元配列を横方向にシートに貼り付け【範囲をリサイズする】

' Paste 1D array horizontally into a worksheet cell
' 一次元配列をシート上に横方向に貼り付ける
Public Sub PasteToCellResize1AryForX( _
	ByVal ws As Worksheet, _
	ByVal row As Long, _
	ByVal col As Long, _
	ByRef ary As Variant)

	' 要素数 = UBound - LBound + 1（0始まり/1始まりの差異を自然に吸収）
	Dim colCount As Long
	colCount = UBound(ary) - LBound(ary) + 1

	' 横方向に colCount 列分を貼り付け
	ws.Cells(row, col).Resize(1, colCount).Value = ary
End Sub