【VBA】Range・Variantをワークシートに書き出す

エクセルVBAでよく使うコードの備忘録。Range、Variantをワークシートに書き出すコード。

Rangeを書き出す

Rangeオブジェクトを指定ワークシートに書き出す。

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("[書出先のワークシート名]")
ws.Cells.Clear

Dim r as Range
r = [書き出したいRangeオブジェクト]

Dim v As Variant
v = r.Value
    
Call r.Copy(ws.Cells([書出位置の行番号], [書出位置の列番号]))

Variantを書き出す

Variantオブジェクトを指定ワークシートに書き出す。

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("[書出先のワークシート名]")
ws.Cells.Clear

Dim v as Variant
v = [書き出したいVariantオブジェクト]

ws.Cells([書出位置の左上行番号], [書出位置の左上列番号]).Resize(UBound(v, 1), UBound(v, 2)).Value = v