при открытии текстового файла при помощи Workbooks.OpenText вот в этой строке макроса ошибка If "%" & Workbooks("1 (" & x & ").txt").Worksheets("1 (" & x & ")").Cells(b, 1).Value = "%" Then это получается потомучто excel при открытии текстового файла вместо строки -lyla-eos вставляет формулу =-lyla-eos как это избежать
{quote}{login=vikttur}{date=12.05.2010 04:32}{thema=}{post}Изменить как? Вставить сумму? Удалить лишние? Закрасить во все цвета радуги? Нарисуйте пример и покажите людям "хотелку".{/post}{/quote}
имеется столбец в котором строки текста чередуются с пустыми строками. Необходимо изменить столбец таким образом чтобы сумма любых подряд идущих строк текста + сумма ниже лежащих пустых строк равнялось 100 при условии что максимальное число строк подрят (без пустых строк) исходного столбца меньше 90