Автор Тема: подсчёт ячеек  (Прочитано 1224 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн tolko_y4ys

  • Коллежский регистратор
  • *
  • Сообщений: 5
  • Репутация: 0
подсчёт ячеек
« : ёоЭм 04, 2009, 11:46:07 am »
здраствуйте, у меня к вам такой вопрос:
предположим, имеются значения в ячейках в2:в10, эти значения перечислены через запятую (т.е. в однйо ячейке записано несколько чисел), необходимо узнать общее количество чисел

я предполагаю , что будет проще разбить тест по столбцам и тогда одному числовому значению будет соотвествовать одна ячейка, но вот как уже подсчитать количество ячеек не оченб понимаю, пробовала:

Sub Макрос1()
MsgBox Range("B2:E10").MergeArea.Cells.Count
End Sub

но почему-то считается неправильно...

Оффлайн pashulka

  • Титулярный советник
  • ****
  • Сообщений: 135
  • Репутация: 7
Re: подсчёт ячеек
« Ответ #1 : ёоЭм 04, 2009, 07:47:59 pm »
MsgBox [SUM(LEN(B2:B10)-LEN(SUBSTITUTE(B2:B10,",",""))+1)], , ""

MsgBox Evaluate("SUM(LEN(B2:B10)-LEN(SUBSTITUTE(B2:B10,"","",""""))+1)"), , ""

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

MS Excel 2000 (и старше)

Dim iCell As Range
For Each iCell In [B2:B10]
    If CStr(iCell) Like "*[0-9]*" Then
       iCount& = iCount& + UBound(Split(iCell, ",")) + 1
    End If
Next
MsgBox iCount&, , ""

Оффлайн tolko_y4ys

  • Коллежский регистратор
  • *
  • Сообщений: 5
  • Репутация: 0
Re: подсчёт ячеек
« Ответ #2 : ёоЭм 08, 2009, 10:40:41 am »
спасибо большое)