excel vba合并字符串

excel vba合并字符串

Sub a()
Dim rg As Range, str As String
str = "A"
For Each rg In ActiveSheet.Range("b5:e12")
 If rg <> "" Then str = str & Right(rg, 1)
Next
ActiveSheet.Range("b1") = str
End Sub

sub a()
    dim str as string
    str="a"
    arr=activesheet.usedrange
    for each cl in arr
        if cl<>"" then str=str & left(cl,1)
    next
    msgbox str
end sub追问修改为固定范围（B5：E12）
结果在B1追答sub a()
    dim str as string
    str="a"
    arr=range("B5:E12")
    for each cl in arr
        if cl<>"" then str=str & left(cl,1)
    next
    [b1]=str
end sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息