實例需求：對于B列的非規(guī)則合并單元，將對應(yīng)的A列單元格內(nèi)容合并，并保存在B列中。

雖然在無數(shù)經(jīng)典圖書和文章中都告誡大家，合并單元格是數(shù)據(jù)分析的絆腳石，但是仍有無數(shù)數(shù)據(jù)分析行業(yè)的“烈士”仍然前赴后繼的繼續(xù)跳進這個廣為人知的坑。無論如何，既然已經(jīng)存在這樣的數(shù)據(jù)表了，如何處理呢？
辦公室的小姐姐遇到這樣的難題，肯定有自稱電腦高手的帥鍋英雄救美。A列數(shù)據(jù)粘貼到記事本，然后再分段拷貝到B列單元格，so easy …
此時，小姐姐在工作表中向下拖動滾動條發(fā)現(xiàn)100萬行數(shù)據(jù)，帥鍋立馬不見蹤影了…
換做你，如果甩出這段代碼，點一下鼠標瞬間完成，接下來如何約小姐姐，就看你的了，呵呵

Sub Demo()For i = 2 To Cells(Rows.Count, 1).End(xlUp).RowIf Cells(i, 2).MergeCells Thenn = Cells(i, 2).MergeArea.Cells.Countarr = Application.Transpose(Cells(i, 1).Resize(n, 1).Value)Cells(i, 2) = Join(arr, Chr(10))i = i + n - 1ElseCells(i, 2) = Cells(i, 1)End IfNext End Sub

【代碼解析】
第2行代碼獲取A列有數(shù)據(jù)的最后單元格的行數(shù)。
第3行代碼判斷第2列指定單元格是否為合并單元格。
第4行代碼獲取合并單元格區(qū)域所包含的單元格個數(shù)。
第5行代碼就合并單元格對于的A列單元格區(qū)域內(nèi)容轉(zhuǎn)置后讀入數(shù)組。
第6行代碼將數(shù)組內(nèi)容組合一個字符串，使用軟回車作為分隔符，并賦值給第2列單元格。
如果第2列指定單元格并不是合并單元格，那么第9行代碼將把A列對應(yīng)單元格內(nèi)容復制到B列。

總結(jié)

以上是生活随笔為你收集整理的非规则合并单元格内容合并的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。