软件: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