- 861 名前：sss mailto:sage [2012/01/22(日) 06:34:50.26 ]
- 列毎のループとセル毎のループの2段ループにすれば良いだけちゃうの？
Dim cols As Range, cell As Range
Dim ii As Long
For Each cols In Range("A1:E5").Columns
For Each cell In cols.Cells
ii = ii + 1
cell.Value = ii
Next cell
Next cols
