VBA代码有一个一维数组,最大下标不一定,怎样删除含汉字的单元得到新缩...答:Sub test()Dim arr1 '原数组Dim arr2 '新数组Dim str As StringDim n, j As IntegerDim B As Booleanarr1 = Split("15大,2k4,31,太阳,b,40,中国,32", ",")For n = 0 To UBound(arr1) B = True For j = 1 To Len(arr1(n)) If Asc(Mid(arr1(n), j, 1))...