[已解决]求大神帮忙看看多个结果累记成字符串怎么表达,谢谢!

chulia_wong

Sub 结果处理()
Dim a&, i%
For i = 1 To 20
If i Mod 2 = 0 Then ,如何条件成立,就把每次成立的结果累记起来形成字符串.用"-"线隔开!
a = i                       '  (因为单元格不够用,我最后想把值挤在一个单元格!)
'join(a,"")         
                               '好比: a= (0-2-4-6-8-10-12-14-16-18-20)
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2015-8-20 15:44

Sub 结果处理()
    Dim i%, s$

    For i = 0 To 20 Step 2
        s = s & "-" & i
    Next i

    s = Mid(s, 2)
    MsgBox s
    [a1] = s

End Sub

跳转到最佳答案楼层

爱疯

Sub 结果处理()
    Dim i%, s$

    For i = 0 To 20 Step 2
        s = s & "-" & i
    Next i

    s = Mid(s, 2)
    MsgBox s
    [a1] = s

End Sub