удалить нули

[panchos]

Как удалить в матрице все нули

[RayShade]

Съесть красную таблетку?

[KL]

Как удалить в матрице все нули

Ну просто завалил деталями!!!

[panchos]

спасибо разобрался

[Krasnaja Shapka]

помогли человеку ))

[RayShade]

Ну да. Я всегда говорил что красные таблетки помогают

[aleksasha]

Код: Выделить всё

    For i = 1 To Worksheets.Count
     Worksheets(i).Activate
     Windows(1).DisplayZeros = False
    Next


[uhm]

Прошу ввести у нас на форуме смайлик с падающей на пол челюстью...

[Redneck]

Function GetOnly(InputText As String) As String
Const MyChars = "0"
Dim i As Integer

For i = 1 To Len(MyChars)
InputText = Replace(InputText, Mid(MyChars, i, 1), "")
Next i

GetOnly = InputText
End Function

и юзай функцию к каждой ячейге)