Sub aaa()
Dim r As Range
Set r = Range(Cells(1, 1), Cells(9, 6))
Z = r
kn = 0: kp = 0
For Each a In Z
If a < 0 Then kn = kn + 1
If a > 0 Then kp = kp + 1
Next
Cells(12, 1) = "Положительных" + Str(kp)
Cells(13, 1) = "Отрицательных" + Str(kn)
End Sub
Во вложении рабочая книга MS Excel 2003
Как только эта информация отчуждается от человека, она превращается из сведений (смысла, знания) в данные, и только если данные попадают к человеку, который знает закон (правила) интерпретации (придания смысла) данным, только тогда у адресата данные преобразуются в смысл.
<span><span>ночь - ноль - соль - сель - сень - день</span>
рота - </span>нота - нога <span>- нора - пора - пола - полк
бант - рант - рана - раса - роса - коса
бег - бог - бок - бак - мак - рак - гак - маг - шаг
море - горе - гора - кора - кома - кума </span>- пума <span>- сума - суша
миг - мир - пир - пар - бар - бас - бес - вес - век</span>
Дроздов Петр
Борисов Влад
Козин Леонид
Истомин Олег
Степанов Николай