0
これは現在使用しているコードです。しかし、私はそれがA2から掴んでいる数値を取って、ColNの範囲でいっぱいになるにつれてそれを1だけ増やしたいと思っています。これは、すべてが同じ番号ではなく、一連の番号を作成します。別のセルに基づいてセルの範囲を塗りつぶしますが、数値の連続は7,8,9 ...
Order = Range("A2")
Range("N2").Select
ActiveCell.FormulaR1C1 = Order
Range("N2").Select
Range("N2", Range("N2").End(xlDown)).Name = "typeColRange"
Selection.AutoFill Destination:=Range("N2:N" & Range("A" & Rows.count).End(xlUp).Row)
また、画面更新をオフにすることもできますが、単純なforループはどちらにしてもかなり瞬間的になるはずです。 – aevanko