%
%%% 第1案（副番号をつける \section を sectiongroup 環境で囲む）
\documentclass{jarticle}
\makeatletter
\def\refstepcounter#1{%
   \expandafter\ifx\csname @actual@counter@for@#1\endcsname\relax
      \def\refstepcounter@cntname{#1}%
   \else
      \expandafter\ifx\csname @actual@counter@for@#1\endcsname\empty
         \def\refstepcounter@cntname{#1}%
      \else
         \edef\refstepcounter@cntname{\csname @actual@counter@for@#1\endcsname}%
      \fi
   \fi
   \stepcounter{\refstepcounter@cntname}%
   \edef\@currentcounter{\refstepcounter@cntname}%
   \protected@edef\@currentlabel{%
      \csname p@#1\expandafter\endcsname\csname the#1\endcsname}}
%%% \section だけなら \stepcounter には細工しなくて済むので
%%% \stepcounter は放置（なお，上の \refstepcounter と同様の細工を単純に
%%% \stepcounter に持ち込むと「\refstepcounter の際に，実際に進めるカウンタの
%%% 名称を2段階調べる」ハメになるので（それでよい場合もあるだろう(*)が），
%%% \stepcounter にも細工するならもう少し繊細に扱う必要がある）．
%%% %%% (*) そういう場合にはむしろ，再帰的に「実際に進めるカウンタの名称」の
%%% %%%     連鎖の末端まで調べたほうがよいと思う．いずれにせよ，より繊細な
%%% %%%     扱いが必要になることには変わりがない．

\newcounter{secpart}[section]
\def\thesection{\@arabic\c@section \ifnum\c@secpart>\z@ .\@arabic\c@secpart\fi}
\def\@actual@counter@for@section{}
\def\sectiongroup{%
   \refstepcounter{section}%
   \def\@actual@counter@for@section{secpart}}
\def\endsectiongroup{\par}
\makeatother

\def\Text{これは，意味のないサンプルテキストです．
   これは，意味のないサンプルテキストです．
   これは，意味のないサンプルテキストです．
   これは，意味のないサンプルテキストです．
   これは，意味のないサンプルテキストです．}
\begin{document}

\section{はじめに}
これは，一部の\,\verb/\section/の番号のみに副番号をつける実験です．

\section{サンプルテキスト}
\Text

\begin{sectiongroup}
\section{副番号付きの節（その1）}
\Text

\section{副番号付きの節（その2）}
\Text
\end{sectiongroup}

\section{サンプルテキスト（その2）}
\Text

\section{むすび}
このサンプルでは，副番号付きの\,\verb/\section/を\texttt{sectiongroup}環境で
囲むことにしました．
このやり方では\texttt{sectiongroup}環境の一部のみを
タイプセットするのはやりにくいでしょう．
\end{document}

%
%%% 第2案（副番号をつける節を \Section で出力）
\documentclass{jarticle}
\makeatletter
\def\countlet#1#2{%%% LaTeX のカウンタ #1（未定義でも可）をカウンタ #2 のコピーにする
   \expandafter\let\csname c@#1\expandafter\endcsname\csname c@#2\endcsname
   \expandafter\let\csname p@#1\expandafter\endcsname\csname p@#2\endcsname
   \expandafter\let\csname cl@#1\expandafter\endcsname\csname cl@#2\endcsname
   \expandafter\let\csname the#1\expandafter\endcsname\csname the#2\endcsname}
\AtBeginDocument{\countlet{orgsection}{section}}

\newcounter{secpart}[section]
\def\thesecpart{\@arabic\c@orgsection.\@arabic\c@secpart}
\def\Section#1#{\@Section{#1}}
\def\@Section#1#2{%
   \ifnum\c@secpart<\@ne \stepcounter{section}\fi
   \countlet{section}{secpart}%
   \section#1{#2}%
   \countlet{section}{orgsection}}

\makeatother

\def\Text{これは，意味のないサンプルテキストです．
   これは，意味のないサンプルテキストです．
   これは，意味のないサンプルテキストです．
   これは，意味のないサンプルテキストです．
   これは，意味のないサンプルテキストです．}
\begin{document}

\section{はじめに}
これは，一部の\,\verb/\section/の番号のみに副番号をつける実験です．

\section{サンプルテキスト}
\Text

\Section{副番号付きの節（その1）}
\Text

\Section{副番号付きの節（その2）}
\Text

\section{サンプルテキスト（その2）}
\Text

\section{むすび}
このサンプルでは，副番号付きの節を\,\verb/\Section/で出力することにしました．
このやり方では「3.1」「3.2」に「4.1」「4.2」が続くような場合には，
「4.1」に対応する\,\verb/\Section/の直前で\texttt{secpart}カウンタ
（この例で導入した，節の副番号用のカウンタ）の値を
手動で0にリセットする必要があります．
\end{document}

