Посчитать количество ТОЧЕК в ячейках

[lilpop]

Всем здравствуйте!
Не могли бы подсказать, есть ли способ, с помощью которого можно посчитать количество ТОЧЕК в предложении в ячейках?
Например: в ячейке есть предложения, в нем есть 3 точки, тогда эта строчка копируется на Лист2 в столбец А
А если 4 точки, то строчка копируется на Лист2 в столбец В?
Заранее спасибо!

[Elixi]

пoпрoбуйте так:

Sub Tocky_Kolicestvo()
    For i = 5 To Cells(Rows.Count, "A").End(xlUp).Row
        Debug.Print Len(Cells(i, "A").Value) - Len(Replace(Cells(i, "A").Value, ".", ""))
    Next i
End Sub

[Elixi]

Sub Kopirujem()
    With Sheets(1)
        For i = 5 To .Cells(Rows.Count, "A").End(xlUp).Row
            TK = Len(.Cells(i, "A").Value) - Len(Replace(.Cells(i, "A").Value, ".", ""))
            
            Select Case TK
                Case Is = 3
                    Sheets(2).Cells(i, "A") = .Cells(i, "A").Value
                Case Is = 4
                    Sheets(2).Cells(i, "B") = .Cells(i, "A").Value
            End Select
        Next i
    End With
End Sub

[lilpop]

Elixi,
код не идет, ничего не скопировал

[lilpop]

lilpop,
второй код сработал!
заменила for i=5 на for i=1, т.к. строчки начинаются с 1.
Спасибо Вам!

[Elixi]

Сообщение от lilpop

код не идет, ничего не скопировал

первый код и не должен ничего копировать, он только считает точки по строкам,
итог выводит в окошко immediate в среде VBA

Сообщение от lilpop

заменила for i=5 на for i=1, т.к. строчки начинаются с 1

поменяйте в коде и названия листов, у меня там в коде не названия листов а их порядок в книге,
так что копировать будет всегда из первого листа в книге на второй лист

[lilpop]

Elixi,
Спасибо за помощь!
а не знаете как добавить еще в этот код, чтобы значения вставлялись в следующую (после данных) пустую строку, чтобы макрос при копировании искал следующую пустую строку, а не перезаписывал старую?
попыталась сделать что-то типа этого и не получилось

Sub new()
Dim NextRow As Long
With Sheets(1)
For i = 5 To Sheets(1).Cells(Rows.Count, 26).End(xlUp).Row
NextRow = Sheets(2).Cells(Rows.Count, 9).End(xlUp).Row + 1

TK = Len(Sheets(1).Cells(i, 26).Value) - Len(Replace(Sheets(1).Cells(i, 26).Value, ",", ""))
Select Case TK
Case Is = 1
Sheets(2).Cells(NextRow, 2) = Sheets(1).Cells(i, 2).Value
End Select
Next i
End With
End Sub

[Elixi]

lilpop,
не знаю пoмoгу ли, ничегo в вашем кoде не менял, тoлькo дoбавил заметки

Sub new_()          ' здесь вы испoльыуете название, кoтoрoе рабoтать не будет, пoменяйте егo хoтя бы так
Dim NextRow As Long
    'With Sheets(1) ' вы написали кoд таким oбразoм, чтo эта кoнструкция здесь не требуется
    For i = 5 To Sheets(1).Cells(Rows.Count, 26).End(xlUp).Row
    ' ниже вы вычисляете пoследнюю стрoку пo стoлбцу №9,
    ' если в дальнейшем в этoт стoлбец данные записивать не будете
    ' в нoвoм прoхoде цикла будет вычислена та же стрoка чтo и в предыдущем
    NextRow = Sheets(2).Cells(Rows.Count, 9).End(xlUp).Row + 1
    
    TK = Len(Sheets(1).Cells(i, 26).Value) - Len(Replace(Sheets(1).Cells(i, 26).Value, ",", ""))
    Select Case TK
        Case Is = 1
        ' здесь данные записиваются в стoлбец №2
        Sheets(2).Cells(NextRow, 2) = Sheets(1).Cells(i, 2).Value
    End Select
    Next i
    'End With
End Sub

[lilpop]

Elixi,
' ниже вы вычисляете пoследнюю стрoку пo стoлбцу №9,
' если в дальнейшем в этoт стoлбец данные записивать не будете

вот данные будут записываться в столбцы 1-10
и надо чтобы каждый раз новые значения вставлялись в пустую строку после всех данных
уже много раз переделывала код и не выходит, не понимаю в чем причина

[Elixi]

Сообщение от lilpop

уже много раз переделывала код и не выходит, не понимаю в чем причина

не знаю пользуетесь ли таким чтобы разобраться, пока нет попробуйте:

' после строки:
	NextRow = Sheets(2).Cells(Rows.Count, 9).End(xlUp).Row + 1
' напишите эти строки и запустите макрос:
	Debug.Print NextRow		' это в окошко immediate запишет № строки которую вы только что вычислили
	Stop				' это остановит макрос, чтобы вы могли посмотреть, та ли строка вычислена
' или, теперь можно посмотреть состояние переменных: наезжаете курсором мыши на название переменной и 
' возле курсора отображается её значение, т.е. даже не надо никаких Debug.Print-ов 
' если теперь нажать клавиш F8 выполнится следующая (одна) команда, так можно по шагам наблюдать что происходит
' если нажать F5 выполнятся все комнады (до следующего Stop, или до конца процедуры)

если не поможет, прикрепляйте файл, если он не секретный, лучше всего и с примером как должно получиться