こちらでは K2セルに 0 を入力して、この↓のtest2を動かすと、M1:M4セルの表示形式は #0 に設定されました。 Sub test2() Dim i As Long i = 1 Select Case Range("K" & i + 1).Value Case 0 Range("M" & i & ":M" & i + 3).NumberFormatLocal = "#0" Case 1
Select Case Range("K" & i + 1).Value Case 0 Range("M" & i & ":M" & i + 3).NumberFormatLocal = "#0" Range("N" & i & ":N" & i + 3).NumberFormatLocal = "#,###.0" Range("O" & i & ":O" & i + 3).NumberFormatLocal = "#,###.0" Range("P" & i & ":P" & i + 3).NumberFormatLocal = "#,###.#0" Range("Q" & i & ":Q" & i + 3).NumberFormatLocal = "#,##0" Range("R" & i & ":M" & i + 3).NumberFormatLocal = "#,##0" Case 1 … End Select