Страницы: 1
RSS
Посчитать количество параметров в одной ячейке
 
Подскажите как посчитать сколько значений допустим в одной ячейке: 26; 45; 23; и нужно что б посчитало и показало что тут их 3. Это возможно?
Заранее всем спасибо
 
Мона. split-ом. В поиск, хелп по split.
Я сам - дурнее всякого примера! ...
 
Option Explicit

Sub ChisloZnachen()
Dim a As Variant
Dim i As Long
Dim n As Long
  a = Split(Range("A1"), ";")
   For i = 0 To UBound(a)
       If IsNumeric(a(i)) Then n = n + 1
   Next
   MsgBox "Число значений в ячейке А1: " & n
End Sub
 
Можно и без цикла. У Вас там есть пробелы - отталкиваемся от них:
Код
Sub Spltter()
    x = Split(ActiveCell)
    MsgBox UBound(x) + 1
End Sub

Если пробелов нет - отталкиваемся от разделителя - точка с запятой:
Код
Sub Spltter()
    x = Split(ActiveCell, ";")
    MsgBox UBound(x)
End Sub
 
Или формулой:
=ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;";";""))
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
а кто то может на примере гугл таблиц показать как именно? я что то не понял ничего:(
 
Может на форуме по Гугл Таблицам узнать? Почему сразу не оглашаете в какой среде работаете? Может быть так сработает:
=LEN(A1)-LEN(SUBSTITUTE(A1,";",""))
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Страницы: 1
Наверх