お題「ささやかな幸せ」 最初、Dim??と全然理解できなかったのですが 分かったらとても便利な式 ですが、私の業務ではあまり使っていません Sub tes8() '変数でセルを指定 Dim i As Integer '列カウンタ Dim j As Integer '行カウンタ '行は1から5 For i = 1 To 5 '列は1から5 For j = 1 To 5 'j列のi行の値はj列の値とi行の値をにする Cells(j, i).Value = "(" & j & "," & i & ")" Next j Next iEnd Sub ※列の値を仮に「i」にしますよー 行の値を仮に「j」に…