分别合并两行

Question

当我在vba中执行以下操作时，两行合并为一行。我希望有两个独立的合并行，任何人都可以帮忙吗？

Range("A" & 1 & ":I" & 1).MergeCells = True
Range("A" & 2 & ":I" & 2).MergeCells = True

Answer 1

继续我的评论试试这个

Sub Sample()
    Range("A" & 1 & ":I" & 2).MergeCells = False

    Range("A" & 1 & ":I" & 1).MergeCells = True
    Range("A" & 2 & ":I" & 2).MergeCells = True
End Sub