|
本帖最后由 laoau138 于 2017-5-28 19:17 编辑
VBA如何改正输出格式 这些绿色文本符号
本帖最后由 france723 于 2017-5-28 19:05 编辑
只把这个函数改动就行。剩下的不变
- Private Sub Myprint()
- Dim i%, LinStr$, Ar, Br, aa, p
- ReDim Br(1 To 1)
- LinStr = ""
- For i = 1 To n - 1
- LinStr = LinStr & a(i) & " "
- Next i
- LinStr = LinStr & a(n)
- Ar = Split(LinStr)
- For Each aa In Ar
- p = p + 1
- ReDim Preserve Br(1 To p)
- Br(p) = Val(aa)
- Next aa
- Range("A" & Ro).Resize(, n) = Br
- Ro = Ro + 1
- End Sub
复制代码
|
|