перенос данных!!! SOS начальник готов УБИТЬ(((

[StasSv]

если правильно понял может так подойдет
Sub удаление()
Dim i As Variant
Dim r As Variant
For i = 1 To 256 'измени количество столбцов
For r = 3 To 17 'измени количество строк
Cells(r, i).Select
If Cells(r, i) = 0 Then
Cells(r, i).Select
Selection.Delete Shift:=xlToLeft
End If
Next r
Next i

End Sub

[IgorGO]

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

[Exo]

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

если правильно понял может так подойдет
Sub удаление()
Dim i As Variant
Dim r As Variant
For i = 1 To 256 'измени количество столбцов
For r = 3 To 17 'измени количество строк
Cells(r, i).Select
If Cells(r, i) = 0 Then
Cells(r, i).Select
Selection.Delete Shift:=xlToLeft
End If
Next r
Next i

End Sub

((((((((((((

[StasSv]

прррр
еще раз, что бы не съехали недели нуна удалять тока строки
а если как вопрос с приложенным рисунком от сегодня в 11;59 то то что прислал попрет

[Exo]

StasSv

интересный результат от твоего макроса, задача решена на 50%, т.к. в каких-то строках макрос удалили ВСЕ пустые ячейки, НО в каких-то нет

может его несколько раз запустить? массив может большой?(

IgorGO спасибо, больше похоже на правду, но с макросом StasSv надо разобраться

[Exo]

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

прррр
еще раз, что бы не съехали недели нуна удалять тока строки
а если как вопрос с приложенным рисунком от сегодня в 11;59 то то что прислал попрет

недели меня не интересуют, только массив

[StasSv]

не просто в сообщении с рисунком задача была поставленна не верно вот она то и решилась (см. файл)
как вопрос поставлен такой и ответ теперь будем думать как решить новую задачу если работа не позовет)))

[SAS888]

Попробуй в макросе от StasSv строку

If Cells(r, i) = 0 Then

заменить на

If Cells(r, i) = 0 Or Cells(r, i) = "" Or Trim(Cells(r, i)) = " " Then

[Exo]

так я все заделал, все БИГ СПС!

но возник еще один вопрос, как из строки со значениями как + так и - выбрать только + и сложить их?

т.е. промежуточный результат не нужен (показывать + значения) нужен конечный результат сложения + значений из строки

пример:
1 -1 10 -5 -22 - 17 8 >>> 19

[StasSv]

а =если не катит