Я нашел решение. Я должен создать текстовую ячейку перед моей ячейкой инициализации, например вот хорошая ячейка:
Cell[TextData[StyleBox["Initialization cell(s)",
FontFamily->"Courier New",
FontSize->14]], "Text",
CellFrame->True, ShowGroupOpener->True,
Background->GrayLevel[0.85]]
Затем я должен выбрать эту ячейку и следующую (инициализационную) ячейку, а затем выбрать из контекстного меню «Групповые ячейки». Теперь я могу свернуть эту группу в одну строку, соответствующую первой текстовой ячейке, дважды щелкнув ее скобку в правой части окна. Это то, что я искал. Спасибо Эндрю Мойлану и Бретту Чемпиону.