1樓：匿名使用者
根據你的題目，我在如下的資料中，為你寫了一段**，在excel 2003中，測試通過
a b
水果 西瓜
芒果荔枝
蔬菜 南瓜
冬瓜北瓜
中瓜寵物 雞鴨鵝
金魚以下為**：
private sub commandbutton1_click()
worksheets("sheet1").cells(1, 10).value = "=counta(b:b)"
z = worksheets("sheet1").cells(1, 10).value
x = 0 '記錄大類小類都存在的行數
y = "" '拼接字串
for i = 1 to z
if worksheets("sheet1").cells(i, 1).value > 0 and worksheets("sheet1").
cells(i, 2).value > 0 then
if x > 0 and len(y) > 0 then
range("b" & x & ":b" & i - 1).select
with selection
.horizontalalignment = xlgeneral
.verticalalignment = xltop
.wraptext = true
.orientation = 0
.addindent = false
.indentlevel = 0
.shrinktofit = false
.readingorder = xlcontext
.mergecells = true
end with
worksheets("sheet1").cells(x, 2).value = left(y, len(y) - 1)
end if
x = i
y = worksheets("sheet1").cells(i, 2).value & ","
end if
if worksheets("sheet1").cells(i, 1).value = 0 and worksheets("sheet1").
cells(i, 2).value > 0 then
y = y & worksheets("sheet1").cells(i, 2).value & ","
end if
worksheets("sheet1").cells(i, 2).value = ""
next i
if x > 0 and len(y) > 0 then
range("b" & x & ":b" & i).select
with selection
.horizontalalignment = xlgeneral
.verticalalignment = xltop
.wraptext = true
.orientation = 0
.addindent = false
.indentlevel = 0
.shrinktofit = false
.readingorder = xlcontext
.mergecells = true
end with
worksheets("sheet1").cells(x, 2).value = left(y, len(y) - 1)
end if
end sub
如果 還有問題 可發信在我郵箱
excel合併單元格時如何保留所有單元格內容
平常我們合併單元格時，只保留第乙個單元格的內容，那麼，我們想保留所有單元格內容，如何進行單元格合併呢？沒法直接保留所有合併單元格的內容，只能夠採取變通方法 將要合併的所有單元格的內容放到另外單元格去，可以使用公式 單元格1 單元格2 單元格3 然後合併單元格，合併後再拷貝回去。或者使用vba去實現。...
EXCLE多個單元格的內容合併為單元格
示例圖中的公式為 textjoin char 10 1,a1 c5 使用此公式，還必須把此單元格啟用自動換行功能，才會有自動換行效果。另外注意 用wps免費版或者微軟office365會員賬號，可以正常textjoin這個函式。微軟其它版本應該是沒有textjoin這個函式的。如何將excel多個單...
excel裡面怎樣快速合併單元格
excel合併單元格方法一 1先選中所要合併的區域，注意合併只能是相連的單元格才行。選中的方法如下圖，可以直接從a1拖拽到d1 或者選擇a1，然後按住shift鍵點選d1，即可選中a1 d1的區域。2然後在上面的格式欄裡找到 合併及居中 點選這個按鈕。3點選 合併及居中 後，會出現警示對話方塊，說 ...
excel合併單元格快捷鍵怎麼用
excel中合併單元格沒有直接的快捷鍵，但是可以利用f4執行上一次操作的方式，來實現合併單元格。軟體版本 office2013 方法如下 1.先選擇要合併的單元格，執行一次合併單元格操作 2.然後，選擇要合併的單元格後，按下f4，即可將這些單元格合併 3.再選擇單元格，利用f4可以繼續合併單元格。方...
Excel2019怎麼批量合併單元格
合併單元格在excel中是乙個又愛又恨的操作，不合併吧，有些凌亂，合併吧，資料處理相當麻煩，為了 的美觀先合併了再說吧！1開啟excel2010，選中你要合併的單元格，在開始選項卡下，選擇右上角的查詢和選擇，點選定位條件 2開啟定位條件對話方塊，選擇空值，然後點選確定 3下面我們要輸入公式，如果要向...