EXCEL之VBA應用實例-合併單元格並保留所有單元格內容

2020-12-13 事事樂分享

默認情況下，EXCEL中合併單元格只保留左上角第一個單元格內容，很多時候我們需要保留所有內容，把合併前的每個單元格內容分行顯示在合併後的單元格內，下面是我想到的一個方法，如果大家有更好的方法歡迎分享。

Sub 合併單元格並保留所有單元格內容()

Application.DisplayAlerts = False '自動對彈出的確認框進行確認，不顯示彈出對話框。

Dim X As New Collection '定義一個集合

For Each myObject In Selection '遍歷選定區域單元格

X.Add myObject '把當前遍歷到的單元格內容添加到集合

Next

a = ""

For i = 1 To X.Count

a = a & Chr(10) & X(i) '把集合的內容一個一個串聯起來，中間用軟回車分行

Next

b = Right(a, Len(a) - 1)

Selection.Merge '合併選定的單元格

Selection.Value = b '把合併後的單元格內容設置為合併前單元格內容串聯繫起來的字符串。

Application.DisplayAlerts = True '恢復顯示彈出窗口設置

If Selection.Columns.Count > 1 Then '如果是多列合併，則把合併後的單元格行高設為相應的倍數行高，以顯示所有合併內容，比如把三列合併，則合併後的單元格設置行高為原行高的三倍。Selection.Columns.Count 是統計選區的列數

Selection.EntireRow.RowHeight = Selection.EntireRow.RowHeight * X.Count

End If

End Sub

相關焦點

  • Excel怎麼合併單元格?合併單元格保留所有內容的方法
    Excel是辦公及生活必備也是常常會使用到的一種文檔格式，雖說實用性很高，但想要真的用透卻不是一件容易的事，比如Excel合併單元格就有很多朋友不知道怎麼做，下面小編就來跟大家分享Excel合併單元格保留所有內容的方法。
  • Excel合併單元格用快捷鍵與滑鼠及怎麼合併單元格數據與文字內容
    Excel合併單元格既可以用滑鼠操作，也可以用快捷鍵；其中用滑鼠操作共有三個選項，分別為合併後居中、跨越合併和單元格合併，它們之間有區別，具體區別在實例後分享；用快捷鍵可分為兩種情況，一種用Excel默認的快捷鍵，另一種用智能快捷鍵。除合併單元格外，還可以合併單元格數據與文字內容，具體怎麼合併？也可分為兩處情況，一種是按列合併，另一種是按行合併。
  • Excel合併單元格時怎麼保留各單元格中的內容
    Excel在合併單元格時會彈出提示：「合併單元格時，僅保留左上角的值，而放棄其他值」。這時如果進行合併單元格，則除了左上角單元格中的值外，其餘合併單元格中的內容會被刪除。如果要合併的單元格都在同一列中，要想在合併同列單元格時保留各單元格中的文字內容，可參考本文的方法進行合併操作。
  • excel怎麼合併單元格?合併單元格的快捷鍵是什麼?
    本篇將介紹excel怎麼合併單元格？合併單元格的快捷鍵是什麼？，有興趣的朋友可以了解一下！excel是我們經常使用的一款表格製作工具，它的一些常用功能我們應該要了解。今天小編帶領大家一起來學習excel合併單元格的操作，excel合併單元格是excel中用的非常頻繁的一個功能，還不熟練的朋友趕快動起手來和小編一起學習。
  • 在特定情況下,多個excel單元格的內容合併到一個單元格小方法
    一、使用excel裡的CONCATENATE函數Excel函數功能強大，我們可以利用函數，可以快速的將多個單元格內容合併到一個單元格裡，以下圖為例，我們只需要在D2單元格輸入，l公式=CONCATENATE(A2,B2,C2)，就可以快速把A2,B2,C2單元格內容，合併到D2單元格裡，是不是很迅速？
  • 【Excel VBA】批量合併單元格
    諸君好，我們今天分享的VBA小代碼內容是批量合併相同值的單列單元格
  • Excel合併單元格時，如何保留全部內容？
    在製作好一個表格後，在美化表格時往往會出現合併單元格的情況，Excel合併單元格後默認只保留第一個單元格內容，那怎麼樣保留全部數據呢，今天小編就來教大家如何保留全部數據。具體操作步驟：第一步：選中需要合併的B4：B7單元格區域，複製，再點擊【合併後居中】按鈕；第二步
  • Excel批量合併相同內容單元格的幾種方法
    在製作Excel表格時，經常需要將相同內容的單元格進行合併，本篇文章分享3種快速批量合併相同內容單元格的方法。下圖為待處理的數據源方法一：使用分類匯總合併A列中相同內容的單元格步驟1：選中A列數據區域，點擊數據—分類匯總，單擊確定。
  • Excel拆分單元格與把一個單元格內容拆分到多個單元格
    在 Word 中，可以把一個單元格拆分為多個單元格甚至拆分為一個表格；而Excel拆分單元格與Word不同，在Excel中，只能把合併後的單元格拆分。拆分方法有兩種，一種是用「對齊方式」中的選項拆分，另一種在「設置單元格格式」窗口中拆分。
  • Excel取消合併單元格時在每個單元格中保留內容,你會批量操作嗎?
    Excel中存在合併的單元格,對我們來說已經是司空見慣啦!在另外一些時候我們又需要將已經合併的單元格的值,進行取消合併,並每個都填充原來合併之前的值。對於結構簡單的帶有合併單元格的表格,我們一般正常操作是手動取消單元格合併,然後手動進行定位,然後填充空白值。
  • excel單元格操作:如何快速批量合併單元格
    都說「分久必合，合久必分」，當你在為合併單元格煩惱的時候，其他人可能在想怎麼按要求合併單元格。這不，小美就遇上合併單元格的問題了，看看我們的苗老師會怎麼解決呢？小美：「苗老師，怎麼批量合併單元格啊？」苗老師：「批量合併單元格？是啥意思？需要怎麼批量？」
  • excel單元格操作：如何快速批量合併單元格
    都說「分久必合，合久必分」，當你在為合併單元格煩惱的時候，其他人可能在想怎麼按要求合併單元格。這不，小美就遇上合併單元格的問題了，看看我們的苗老師會怎麼解決呢？小美：「苗老師，怎麼批量合併單元格啊？」 苗老師：「批量合併單元格？是啥意思？需要怎麼批量？」 小美：「是這樣的，我做了一個表格，領導說不好看，讓我把相同的部門做成合併單元格。」
  • Excel取消合併單元格時在每個單元格中保留內容, 你會批量操作嗎?
    Excel中存在合併的單元格
  • Excel教程：excel查找合併單元格操作技巧
    Excel教程查找合併單元格是一項比較實用的excel操作技巧。比如一個excel工作表，有很多合併單元格，如何一次性選中所有合併單元格，然後取消合併單元格操作。您會嗎？　　excel查找合併單元格操作是這樣的：先任意合併兩個單元格，編輯菜單-查找（或直接按ctrl+f），在查找對話框中點「選項」，然後從單元格中選取格式，然後點全部查找就會找到所有合併過的單元格，如果要全選，可以按快捷鍵ctrl+a。 這樣就可以一次性選中所有的excel表格裡面的合併單元格，然後點擊取消合併單元格即可。
  • Excel怎麼把多個單元格的內容合併到一個單元格中
    因為Excel的特性，其中的內容都是保存在各個單元格中，通常情況下，對Excel的多個單元格進行複製後再粘貼時仍然會粘貼到與複製時數量相同的單元格中。那麼如果想把多個單元格中的文字內容複製後粘貼到一個單元格中，（也就是合併到一個單元格中）該怎麼辦呢？
  • Excel小技巧91:合併單元格且不丟失數據
    ，並使用「合併單元格」命令後，Excel會給出如下圖1所示的提示，只保留左上角單元格中的數據。圖1 那麼，如何合併單元格且保留所有數據呢？這裡介紹2種方法。 方法1：巧用填充首先，選擇所有單元格。（注意，想要合併的所有單元格應該在同一列中） 然後，調整列寬以便在一個單元格中能夠容納所有要合併的單元格中的內容。 下一步，單擊功能區「開始」選項卡「編輯」組中「填充——兩端對齊」命令。此時，所選單元格中的文本將被重新輸入到最上方的單元格。
  • VBA判斷單元格內容格式、顏色、合併單元格
    VBA.IsError([a5]) Then If Application.WorksheetFunction.IsError([a5]) Then [b5] = "錯誤值" End If End Sub Sub d11() [b6] = ""
  • 【Excel】合併單元格內容的 3 個技巧
    - 合併同一行中連續單元格的內容 -  打開需要合併同行單元格內容的工作表，例如，我們現在來合併 A1 至 C1 單元格中的內容。選中 D1 單元格，輸入函數【=PHONETIC(A1:C1)】，按下回車鍵，就能看到 A1 至 C1 三個單元格中的內容已經合併顯示到 D1 單元格中了，效果如下。
  • Excel批量合併相同內容單元格,並實現逆向操作,批量取消合併單元格恢復原樣!
    如下圖所示：下圖左表中A列為日期列，我們觀察到日期列中有很多相同的日期，現在我們想要將相鄰的相同日期的單元格進行合併單元格，形成右表E列日期列的效果。同樣的道理，通過將日期列相同日期單元格進行合併單元格後，我們仍可以逆向操作，回到原始狀態。
  • Excel|VBA拆分單元格內容
    最近遇到一個小需求，如何將Excel單元格中的內容拆分到多行？下圖中左邊是原始數據，每位員工需要上班的日期，合併在一個單元格內，日期之間間隔一個空白符；現在需要拆分成表右邊所示的樣子，即將員工需要上班的日期拆分成一行行數據；傳統的方法可以直接對班期列進行分列操作，再將分列所得數據一行行複製轉置粘貼，步驟繁瑣麻煩，這裡用VBA處理，寫好代碼，一秒鐘搞定，一勞永逸