尝试一下:

Dim

    Dim array1 = Form4.TheArray()

Dim

    Dim c1 = oSheet.Cells(1, 3)

Dim

    Dim c2 = oSheet.Cells(5, 3 + count)

Dim

    Dim r = oSheet.Range(c1, c2)

r.Value2 = array1

    r.Value2 = array1