當前位置:成語大全網 - 新華字典 - 使用VBA EXCEL合並大量單元格,並保留合並單元格的內容。

使用VBA EXCEL合並大量單元格,並保留合並單元格的內容。

根據妳的題目,我在下面的數據裏給妳寫了壹段代碼。在excel 2003中,測試通過。

壹個B

水果西瓜

芒果

荔枝

蔬菜南瓜

冬瓜

筍瓜

中坬

寵物雞

鴨子;天啊

金魚

以下是代碼:

私有子命令按鈕1_Click()

工作表(“sheet1”)。單元格(1,10)。Value = "=counta(b:b)"

z =工作表(“sheet1”)。單元格(1,10)。價值

“X = 0”記錄存在於兩個類別中的行數。

Y = " " '串聯字符串

對於i = 1到z

If工作表(“sheet1”)。單元格(I,1)。值& gt0和工作表(“sheet1”)。單元格(I,2)。值& gt那麽0

如果x & gt0和Len(y)>那麽0

範圍(" B " & ampx & amp":B " & ampi - 1)。挑選

有選擇

。水平對齊=常規

。垂直對齊= xlTop

。WrapText = True

。方向= 0°

。AddIndent = False

。IndentLevel = 0

。ShrinkToFit = False

。ReadingOrder = xlContext

。MergeCells = True

以…結尾

工作表(“sheet1”)。單元格(x,2)。Value = Left(y,Len(y) - 1)

如果…就會結束

x = i

y =工作表(" sheet1 ")。單元格(I,2)。價值與價值。","

如果…就會結束

If工作表(“sheet1”)。單元格(I,1)。Value = 0和工作表(" sheet1 ")。單元格(I,2)。值& gt那麽0

y = y & amp工作表(“sheet1”)。單元格(I,2)。價值與價值。","

如果…就會結束

工作表(“sheet1”)。單元格(I,2)。值= " "

接下來我

如果x & gt0和Len(y)>那麽0

範圍(" B " & ampx & amp":B " & amp我)。挑選

有選擇

。水平對齊=常規

。垂直對齊= xlTop

。WrapText = True

。方向= 0°

。AddIndent = False

。IndentLevel = 0

。ShrinkToFit = False

。ReadingOrder = xlContext

。MergeCells = True

以…結尾

工作表(“sheet1”)。單元格(x,2)。Value = Left(y,Len(y) - 1)

如果…就會結束

末端接頭

如果妳有任何問題,請發壹封信到我的郵箱裏。