關(guān)于合并單元格,保留內(nèi)容,合并單元格時(shí)保留每一個(gè)格的內(nèi)容這個(gè)問(wèn)題很多朋友還不知道,今天小六來(lái)為大家解答以上的問(wèn)題,現(xiàn)在讓我們一起來(lái)看看吧!
1、Sub 合并同類項(xiàng)() If Selection.Columns.Count > 1 Then MsgBox "只能對(duì)單列操作,請(qǐng)重新選擇區(qū)域!": Exit Sub Selection.Offset(0, 1).EntireColumn.Insert With Selection For i = .Cells.Count To 2 Step -1 If .Cells(i) = .Cells(i - 1) Then Range(.Cells(i).Offset(0, 1), .Cells(i - 1).Offset(0, 1)).Merge Next Selection.Offset(0, 1).Copy .PasteSpecial xlPasteFormats .Offset(0, 1).EntireColumn.Delete End WithEnd Sub 對(duì)補(bǔ)充問(wèn)題的回復(fù):合并所有單元格好實(shí)現(xiàn),不用判斷內(nèi)容是否相同即可。
2、Sub 合并() If Selection.Columns.Count > 1 Then MsgBox "只能對(duì)單列操作,請(qǐng)重新選擇區(qū)域!": Exit Sub Selection.Offset(0, 1).EntireColumn.Insert With Selection.Offset(0, 1) .Merge .Copy .Offset(0, -1).PasteSpecial xlPasteFormats .EntireColumn.Delete End WithEnd Sub 菜單項(xiàng)或快捷鍵可以將代碼保存在“個(gè)人宏工作簿”中為其指定快捷鍵,或?yàn)樽远x的菜單項(xiàng)指定宏。
3、 BTW:分多少都行,但是千萬(wàn)別二百五...囧。
本文分享完畢,希望對(duì)大家有所幫助。
標(biāo)簽:
免責(zé)聲明:本文由用戶上傳,如有侵權(quán)請(qǐng)聯(lián)系刪除!