简化代码

lufabao7788

     =后面有好多单元格，怎么写简单一点，谢谢大侠。 TextBox6.Value = arr1(r, 19) & "," & arr1(r, 20) & "," & arr1(r, 21) & "," & arr1(r, 22)

eqzh

设一个字符串变量str,
for i=19 to 22
str=str&arr1(r,i)
next
然后:TextBox6.Value=str
循环数根据需要变动

lufabao7788

eqzh您好，代码简化了，可是每一条中间的逗号","没有了，能解决吗？谢谢！

w609053988

for i=19 to 22
str=str&arr1(r,i)&","
next
TextBox6.Value=left(str,len(str)-1)

lufabao7788

w609053988 发表于 2019-8-24 09:37
for i=19 to 22
str=str&arr1(r,i)&","
next

您好，这里还有一个问题，19 To 22如果有空格，空格也会出现逗号，
我是初学者，不会变通，请帮忙。

lsc900707

没有附件，解答的人寥寥。

w609053988

lufabao7788 发表于 2019-8-24 10:14
您好，这里还有一个问题，19 To 22如果有空格，空格也会出现逗号，
我是初学者，不会变通，请帮忙。

for i=19 to 22
    if len(arr(r,i))<>0 then str=str&arr1(r,i)&","
next
TextBox6.Value=left(str,len(str)-1)

lufabao7788

w609053988 发表于 2019-8-24 10:39
for i=19 to 22
    if len(arr(r,i))0 then str=str&arr1(r,i)&","
next

If Len(arr(r, i)) <> 0 Then
这一句运行不了，不知道什么原因。

准提部林

for i=19 to 22
    str=REPLACE(TRIM(str & " " & arr1(r, i))," ",",")
next

准提部林

for i=19 to 22
    IF arr1(r, i) <>"" THEN str= str & IIF(STR="","",",") & arr1(r, i)
next