壹個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)
如果…就會結束
末端接頭
如果妳有任何問題，請發壹封信到我的郵箱裏。