プログラムは折り返しが多いと見づらい。パソコン表示だと気にならないが、スマホ表示だととても気になる。 pre.code{ font-size: 80%; max-height: 200px; background:#f7f7f7; white-space: pre; overflow: auto; } pre.code{ font-size: 80%; max-height:…

こんなの書いた。範囲拡大するだけ。 Sub test1() Dim rng As Range Set rng = Range("A1") With rng Set rng = .Resize(, 2) '列数拡大(1→2) Set rng = .Resize(3) '行数拡大(1→3) End With Debug.Print rng.Address End Sub .Resize(, 2)で列数が2に変わっ…