2 vba_Excel 词云

Sub a9() Dim str As String str = "" ActiveSheet.Shapes.Range(Array("Cloud Callout 1")).Select For i = 3 To Application.CountA(Range("b:b")) + 2 str = str + Range("b" & i) + " " Selection.S

>>阅读原文<<