"我不知道你是不是這個意思,下面程式碼完成功能的是所有使用的單元格行高設定為10

"1、2行合併後的行高就變成5了，也就是合併後的單元格(1,2行加進來)的行高為10

"如果是1,2，3行合併，也就是合併後的單元格(1,2，3行加進來)的行高為10,每行3.33

"alt+f11?插入模組,裡面寫入以下程式碼

sub?seth()

dim?c?as?range,?a?as?integer,?b?as?integer

????b?=?10

????a?=?activesheet.usedrange.rows.count

????for?each?c?in?range("a1:a"?&?a)

????????if?c.mergecells?then

????????rows(c.row).rowheight?=?b?/?c.mergearea.rows.count

????????else

????????rows(c.row).rowheight?=?b

????????end?if

????next

end?sub"然後再右邊的selection事件中加入程式碼

callseth