excel的vba中,已经得到一个数组,有什么语句可以为每个元素追加一个字...答:Sub ss_Error()Dim Arr(), i&, One Arr = Array("A", "B", "C") For Each One In Arr One = "=" & One Next OneEnd SubSub ss()Dim Arr(), i&, One Arr = Array("A", "B", "C") For i = 0 To UBound(Arr) Arr(i) = "=" & Arr(i) Next iEnd Sub注意...
利用EXCEL VBA如何将一列数据中不重复的数据读取到数组中答:假设BAX,BOX,DHL,FED,YUAN,BAX,BOX,BOX,FED,FED数据放到表格sheet1中的A1到A9中。运行如下代码后,将不重复的BAX,BOX,DHL,FED,YUAN放到数组str_arr中,不重复的个数放到count中。代码已经调试ok了。Sub del_repeat()Dim i As Integer Dim str_arr(100) As String Dim count As Integer Dim ...