vb中l(wèi)abel怎么自動(dòng)對(duì)齊？按,來(lái)整個(gè)表格的，由于2個(gè)label的,數(shù)量很可能不一樣的，所以才都是不能分開(kāi)處理的，數(shù)量不限按最長(zhǎng)的分割。Option ExplicitPrivate Sub Form

vb中l(wèi)abel怎么自動(dòng)對(duì)齊？

按,來(lái)整個(gè)表格的，由于2個(gè)label的,數(shù)量很可能不一樣的，所以才都是不能分開(kāi)處理的，數(shù)量不限按最長(zhǎng)的分割。Option ExplicitPrivate Sub Form_Activate()

Dim a, b,abmax,i

Me.Height3600

Me.Width4800

Label1.Left480:Label2.Left 480 480: 800 True 1,1,1 11,-1,-0.5

aSplit(,,)

bSplit(,,)Fori0toUBound(a)

IfabmaxLen(a(i))ThenabmaxLen(a(i))

Next

Fori0needUBound(b)

IfabmaxLen(b(i))ThenabmaxLen(b(i))

Fori0needUBound(a)

Space(abmax-Len(a(i)))a(i),

Next

Fori0toUBound(b)

Space(abmax-Len(b(i)))b(i),

Next

EndSub

如何快速將EXCEL匯總表中的每一行拆分為一個(gè)個(gè)人檔案表，急求？

你在表2寫(xiě)一個(gè)VBA程序，用大學(xué)英語(yǔ)變量將表1的內(nèi)容讀得出，添寫(xiě)表2中再試一下。

或你將你的表發(fā)至網(wǎng)盤(pán)中，給你多做做。

Excel-VBA中如何使用split來(lái)分割內(nèi)部含有不定空格的字符串？

要是空格若不是，可以不先用Replace函數(shù)把兩個(gè)空格換了一個(gè)空格，循環(huán)等到字串中不成分后兩個(gè)空格狀況，然后再Split。

拆分表格的規(guī)則？

這個(gè)需求，如果數(shù)據(jù)量太大，用公式很有可能運(yùn)算時(shí)間很長(zhǎng)，因?yàn)樾枰谟煤脦讉€(gè)數(shù)組公式：可以使用數(shù)組公式完成A列B列的僅有值在用PhoneticOffset(或Indirect)完成任務(wù)對(duì)應(yīng)A列B列真正值的C列的合并值兩個(gè)公式都相當(dāng)急切，如果數(shù)據(jù)達(dá)到3000條，運(yùn)算時(shí)間可能會(huì)就覺(jué)得不能忍受了，一千條之內(nèi)也許是這個(gè)可以試試所以我見(jiàn)意不使用VBA