Sub Test1()

    Range("A1:C1").MergeCells = True
    Range("C1").MergeArea.Value = "Excel"
    Range("A1").Value = "VBA"

    '左上セルかMergeAreaを使わないとできない
    Range("B1").Value = "失敗"

End Sub



Microsoft Office ブログランキングへ