以前的文章介紹excel合并單元格多是基礎(chǔ)操作,本文介紹關(guān)于excel合并單元格宏VBA代碼方面的應(yīng)用。
第一,用VBA宏判斷excel合并單元格
在excel中按下ALT+F11,打開VBE編輯器,復(fù)制下面代碼,按F5鍵運(yùn)行,如果A1單元格為合并單元格,則彈出消息框提示此單元格為合并單元格,如果A1單元格沒有合并,消息框提示此單元格不是合并單元格。
Sub excel合并單元格宏()
If Range("A1").MergeCells Then
MsgBox "此單元格為合并單元格"
Else
MsgBox "此單元格不是合并單元格"
End If
End Sub
第二,用宏VBA代碼來進(jìn)行合并單元格
用上面介紹的方法,復(fù)制下面這段代碼,運(yùn)行的結(jié)果是:當(dāng)我們?cè)谳斎肟蜉斎胍粋(gè)行號(hào),然后excel會(huì)自動(dòng)合并A1到輸入行號(hào)的單元格區(qū)域。比如我們輸入8,excel則合并A1:A8單元格區(qū)域。
Sub合并單元格宏()
Dim x1 As Long
x1 = InputBox("請(qǐng)輸入行號(hào):")
Sheets("sheet1").Range("a1:a" & x1).Merge
End Sub
又比如下面這段宏VBA代碼可以實(shí)現(xiàn)C6:F10單元格區(qū)域合并。
Sub 合并單元格()
Range("C6:F10 ").MergeCells = True
End Sub
核心關(guān)注:拓步ERP系統(tǒng)平臺(tái)是覆蓋了眾多的業(yè)務(wù)領(lǐng)域、行業(yè)應(yīng)用,蘊(yùn)涵了豐富的ERP管理思想,集成了ERP軟件業(yè)務(wù)管理理念,功能涉及供應(yīng)鏈、成本、制造、CRM、HR等眾多業(yè)務(wù)領(lǐng)域的管理,全面涵蓋了企業(yè)關(guān)注ERP管理系統(tǒng)的核心領(lǐng)域,是眾多中小企業(yè)信息化建設(shè)首選的ERP管理軟件信賴品牌。
轉(zhuǎn)載請(qǐng)注明出處:拓步ERP資訊網(wǎng)http://www.ezxoed.cn/
本文標(biāo)題:excel中vba宏代碼合并單元格的方法
本文網(wǎng)址:http://www.ezxoed.cn/html/support/11139213975.html