用vba代码Public Sub A()Dim Rng As Range, S$For Each Rng In Range("A1:A"counta(a:a))If Len(Rng.Value) ThenS = S & Rng.Value & ""End IfNextRange("B1") = SEnd Sub
