軟體:office EXCEL
版本:2013
大家好
我今天想要得到有資料的格數
要怎麼寫勒?
A B C D E F
1 a b
2 c
3
如上表
我想要讓他判別出
第一行有2個儲存格有字(A1 B1 不為空值)
就在D1 E1 F1內補上輸入的3個TEXTBOX的字
我是這樣下的
Do n+1 until cells(1,n) < > ""
count=n
Loop
cells(1,count) =textbox1.text
cells(1,count+1) =textbox2.text
cells(1,count+2) =textbox3.text
然後一執行 我的EXCEL就停止回應了...
請問哪邊的邏輯錯了嗎??
還是有更好的寫法?

do..loop的語法錯誤do後面的n+1，看起來原po是要累加，如果是的話寫在迴圈內也因n如果小於1時cells(1,n)會有錯誤，也請在do上面先初始n的值為1當然如果要判斷a1,b1不為空值的話，也可以用worksheetfunction.counta的方式來計數再配合if就可不用寫迴圈另外vba的累加寫法為n=n+1