這是群里的一個(gè)問題:?jiǎn)卧襁B接內(nèi)容的同時(shí)如何做到excel保留格式。
具體的excel保留格式效果如下:A1單元格里面的“你”是加粗的,“們”未加粗;B1單元格里面的“好”為加粗。
excel保留格式的最終效果為C1單元格的效果。
實(shí)現(xiàn)這個(gè)效果,在excel工作表按下ALT+F11,打開VBE編輯器,插入——模塊,復(fù)制下面的代碼,將代碼指定給按鈕即可。
Sub excel保留格式()
Dim x As Range, n%, i%, m
[c1] = [a1] & [b1]
For Each x In [a1].Resize(1, 3)
If x.Column = 1 Then m = 0 Else m = m + Len(x.Offset(0, -1))
For i = 1 To Len(x)
n = m + i
Debug.Print n
[c1].Characters(n, 1).Font.ColorIndex = x.Characters(i, 1).Font.ColorIndex
[c1].Characters(n, 1).Font.Bold = x.Characters(i, 1).Font.Bold
Next
Next
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)題:解決公式不能實(shí)現(xiàn)excel保留格式的方法
本文網(wǎng)址:http://www.ezxoed.cn/html/support/11139215010.html