- 1
Replace(Replace(Replace(Replace(Replace(sht1.Cells(i, 4).Value, "(кратность 4 шт)", ""), "O.F.", ""), "D1ECO", ""), "DECO", ""), "SK", "")
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
−108
Replace(Replace(Replace(Replace(Replace(sht1.Cells(i, 4).Value, "(кратность 4 шт)", ""), "O.F.", ""), "D1ECO", ""), "DECO", ""), "SK", "")
Удаляем из ячейки Excel одно из возможно встречающихся в ней слов.
Говнокод или вполне нормальный трюк?
s = s.Replace("www.somebadsite.ru", "");
...
К тому же если в VBА объвить и инициализировать массив, а потом написать цикл, то кода получится больше.
но код не совсем говно-
сам раньше примерно так же делал))