1. 首頁 > 生活經驗 > >

合并單元格時保留每一個格的內容 電子表格合并單元格并保留內容

知識經驗


合并單元格時保留每一個格的內容 電子表格合并單元格并保留內容

文章插圖
大家好,小跳來為大家解答以上的問題 。電子表格合并單元格并保留內容 ， 合并單元格時保留每一個格的內容這個很多人還不知道,現在讓我們一起來看看吧！
1、Sub 合并同類項()If Selection.Columns.Count > 1 Then MsgBox "只能對單列操作，請重新選擇區域!": Exit SubSelection.Offset(0, 1).EntireColumn.InsertWith SelectionFor i = .Cells.Count To 2 Step -1If .Cells(i) = .Cells(i - 1) Then Range(.Cells(i).Offset(0, 1), .Cells(i - 1).Offset(0, 1)).MergeNextSelection.Offset(0, 1).Copy.PasteSpecial xlPasteFormats.Offset(0, 1).EntireColumn.DeleteEnd WithEnd Sub 對補充問題的回復：合并所有單元格好實現 ， 不用判斷內容是否相同即可 。
2、Sub 合并()If Selection.Columns.Count > 1 Then MsgBox "只能對單列操作，請重新選擇區域!": Exit SubSelection.Offset(0, 1).EntireColumn.InsertWith Selection.Offset(0, 1).Merge.Copy.Offset(0, -1).PasteSpecial xlPasteFormats.EntireColumn.DeleteEnd WithEnd Sub 菜單項或快捷鍵可以將代碼保存在“個人宏工作簿”中為其指定快捷鍵，或為自定義的菜單項指定宏 。
3、 BTW：分多少都行，但是千萬別二百五...囧 。
【合并單元格時保留每一個格的內容 電子表格合并單元格并保留內容】本文到此分享完畢，希望對大家有所幫助 。