Чтобы открыть и закрыть группы ячеек, вы хотите Shift+Ctrl+{ и Shift+Ctrl+} соответственно.
Есть куча сочетаний клавиш, перечисленных в документации:
NotebookShortcuts и KeyboardShortcutListing
Если вам нужно что-то еще, вам нужно объединить соответствующую команду или FrontEndToken и поместить ее в файл KeyEventTranslations.tr . Этот файл можно найти в
FileNameJoin[{$InstallationDirectory, "SystemFiles", "FrontEnd",
"TextResources", "X", "KeyEventTranslations.tr"}]
где вы заменяете "X" на имеющуюся у вас платформу: "X" , "Windows" или "OSX" .
Например, ярлык для перехода к следующей ячейке можно реализовать, добавив
Item[KeyEvent["g", Modifiers -> {Control}],
FrontEndExecute[SelectionMove[InputNotebook[], Next, Cell]]]
в KeyEventTranslations.tr .
Для получения дополнительной информации, вот SO вопрос о настройке сочетаний клавиш Mathematica (с хорошими ссылками) и один вопрос о добавлении ключа к (не) коду комментария в Mathematica 7.