查詢自動合併單元格的巨集

合併 a 列中的相同單元格，如果合併多列，可以新增迴圈。

sub 自動合併單元格 （）。

falsefor i = 2 to range("a65536").end(xlup).row

j = i + 1

do while cells(i, 1) = cells(j, 1)j = j + 1

loopif j > i + 1 thenrange("a" & i & ":a" & j - 1).mergecells = true

i = j - 1

end if

next i

trueend sub

我認為您需要使用VBA來實現這一點。

您的意思是將圖表上第二列（輔助目錄）下的空白資料行合併到頂部有資料的行中嗎？ 如果是，請繼續閱讀（我將給出以下公式）：

執行 vba**：

sub ims()

hen = 1

for ro = 2 to range("b65432").end(xlup).row

if cells(ro,).value = "" then

range("b" & hen & ":b" & ro).select

elsehen = ro

end if

nextend sub

如果您不在第二列中，請將第 3 行和第 5 行中的粗體大寫字母“b”修改為列標籤，並將第 4 行中的粗體“2”更改為列號 [b 列為 2，c 列為 3 等]。

按Alt+F11鍵，點選“插入”-“模組”，輸入以下**：：

sub my_marcro()

end sub

回到Excel介面，點選“開發工具”-“巨集”，確保選中了My Marcro，點選“選項”，在“快捷方式”下方的小框中輸入M，點選確定。

sub hbz()

dim s as string, i as integerfor i = 1 to

if i = 1 then

s =else

s = s & chr(10) &

end if

next send sub

Alt+F11 開啟 VBE 裝置，建立乙個新模組，並按上述方式貼上**。

檢視工具欄，點選窗體前面，用滑鼠左鍵拖動乙個按鈕，指定 hbz 巨集，然後單擊該按鈕以執行所選區域。

選擇乙個區域並執行 VBA 的此部分

sub hb()

str2 = ""

str1 =

for i = 2 to

str2 = str1 & chr(10) &next

selection = ""

activecell = str1 & str2end sub

我之前見過這個問題，程式編輯，可以檢視郵件中的個人資訊。

範圍是 A 到 J，意思是 A 到 J 單獨判斷？ 或者只是判斷一列是相同的，並將這些行的 A 列合併到 J 列？

是單獨合併列，還是將這些列全部合併到乙個大單元格中？

這種寫作真的有你的。

首先，arr 和 brr 在這裡不能直接連線，需要分別從 arr 和 brr 中的相應資料中取出它們>>這樣才能形成乙個新的組合一維陣列。

然後轉置與轉置。

arr & brr 不，你得先把它加起來，轉置是乙個脂肪陣列，大小和前面的區域一樣。

VBA** 如下所示：

option explicit

sub 將 A 列合併到 B 列 （）。

dim i, j, v

i = 1while cells(i, 1) <""

v = cells(i, 1)

j = i + 1

while cells(j, 1) = vj = j + 1

wendj = j - 1

cells(i, 2) = cells(i, 1)if i <>j then

cells(i, 2).resize(j - i + 1, 1).merge

end if

i = j + 1

wendend sub

真相地圖：

首先複製到 b 列，然後合併單元格。

sub macro1()

range("f3:h6").select '這裡 f3：h6 你可以替換任何你想合併的單元格範圍，或者刪除這一行**，你選擇要合併的區域並執行這個巨集就可以了。

with selection

horizontalalignment = xlcenter.verticalalignment = xlcenter.wraptext = false

orientation = 0

addindent = false

indentlevel = 0

shrinktofit = false

readingorder = xlcontext.mergecells = false

end with

end sub

安全級別設定為“中”，並在開啟檔案時啟用巨集。