文法エラーにならない。怖い。 If 1 < 2 < 3 Then Debug.Print "1.True" End If If 3 < 2 < 1 Then Debug.Print "2.True" End If If True > True > True Then Debug.Print "3.True" End If 順番に一つ一つ比較する。 1の例。1 2の例。3 3の例。Int(True)は-1…

順番は保証されてない模様。以下、確認用コード。 Set セル範囲 = Range("A1:E2") For Each v In セル範囲 Debug.Print v Next 二次元配列 = セル範囲 For Each d In 二次元配列 Debug.Print d Next テスト表 ＼ABCDE 112345 2678910 実行結果 セル範囲の出…

Ctrl+Aで取得できる範囲から、Offsetで一行下げて、Resizeで一行減らす処理。 起点は何も考えずC7にしました。 Dim セル範囲 As Range With Range("C7").CurrentRegion Set セル範囲 = .Offset(1).Resize(.Rows.Count - 1) End With 以上。