Vba количество строк с первой буквы - PullRequest
Новая
       13

Vba количество строк с первой буквы

0 голосов
/ 08 июня 2018

Я хочу создать счетчик строк текстового файла, но если я объединю тексты из всех столбцов в одну ячейку в каждой строке, будет больше тысячи символов в ячейке, и это приведет к ошибке.Я пытаюсь разбить эти объединенные строки, чтобы взять первый символ только в первые ячейки в каждой строке, но это не работает.Как я могу это исправить?Или как подсчитать только первый столбец? 

Sub counter()

    Dim GoToNum As Integer
    Dim Start As Integer
    GoToNum = 2
    Start = 3

    Do Until IsEmpty(Cells(Start, 1))
        GoToNum = GoToNum + 1
        Start = Start + 1
    Loop

    Dim SubCounter As Integer
    Dim curLine As String

    For i = 3 To GoToNum

            ConOrg = Cells(1, 4).Value & "\" & Cells(i, 1).Value

            'If Cells(i, 2).Value <= Cells(2, 5).Value Then

                Open ConOrg For Input As #1

                Do Until EOF(1)
                    SubCounter = SubCounter + 1
                    Line Input #1, Left(curLine, 1)
                    'ThisWorkbook.Sheets(1).Cells(SubCounter, 3).Value = curLine
                Loop

                Cells(i, 3).Value = SubCounter
                SubCounter = 0

                Close #1

            'End If

    Next i

End Sub
...