MergeAreaå±æ§ï¼è¿åä¸ä¸ª Range对象ï¼è¯¥å¯¹è±¡ä»£è¡¨å å«æå®åå æ ¼çå并åºå
éè¿MergeArea.rows.countè·å¾å并åºåçè¡æ°ï¼MergeArea.columns.countè·å¾å并åºåçåæ°
æ é¢ç®ä¸è¦ç»è®¡cells(i,j)æå¨çå并åå æ ¼çå并个æ°å°±å¯ä»¥ç¨ä¸é¢ä»£ç å®ç°ï¼
sub main
ro=cells(i,j).MergeArea.Rows.Count
co=cells(i,j).MergeArea.Columns.Count
su=ro*co
msgbox "æå®åå æ ¼å并åºåå å«â& su &"个åå æ ¼â
end sub