合并两行分开

当我在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