[已解决]高手们给看下这个代码怎么修改

东方智彩

看附件,谢谢!
1.rar (8.96 KB, 下载次数: 24)

2011-10-8 16:33 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

mxg825

2011-10-8 17:27

改动红色的地方，因为那个空格，是一个非打印字符！
Sub shssl()
    [R5:U65536].ClearContents
    Dim arr1, Arr2()
    Application.ScreenUpdating = False
    'On Error Resume Next
    FileName1 = ThisWorkbook.Path & "\ssl.txt"
    Open FileName1 For Input As #1
    arr1 = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
    Close #1
    ARR3 = Split(arr1(0), VBA.Chr(9))
    ReDim Arr2(1 To UBound(arr1) + 1, 1 To UBound(ARR3) + 1)
    For i = 0 To UBound(arr1)
        ARR3 = Split(arr1(i), VBA.Chr(9) )      
For j = 0 To UBound(ARR3)
            Arr2(i + 1, j + 1) = ARR3(j)
        Next j
    Next i
    Range("R5").Resize(UBound(Arr2), UBound(Arr2, 2)) = Arr2
    Application.ScreenUpdating = False
End Sub

跳转到最佳答案楼层

mxg825

改动红色的地方，因为那个空格，是一个非打印字符！
Sub shssl()
    [R5:U65536].ClearContents
    Dim arr1, Arr2()
    Application.ScreenUpdating = False
    'On Error Resume Next
    FileName1 = ThisWorkbook.Path & "\ssl.txt"
    Open FileName1 For Input As #1
    arr1 = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
    Close #1
    ARR3 = Split(arr1(0), VBA.Chr(9))
    ReDim Arr2(1 To UBound(arr1) + 1, 1 To UBound(ARR3) + 1)
    For i = 0 To UBound(arr1)
        ARR3 = Split(arr1(i), VBA.Chr(9) )      
For j = 0 To UBound(ARR3)
            Arr2(i + 1, j + 1) = ARR3(j)
        Next j
    Next i
    Range("R5").Resize(UBound(Arr2), UBound(Arr2, 2)) = Arr2
    Application.ScreenUpdating = False
End Sub

东方智彩

高手一看就明白,谢谢了!