For I = 2 To 100

Sheets("a").Cells(1, 1).Value =Sheets("a") .Cells(i, 1).Value

Sheets("a").Cells(i, 2).Value = Sheets("a").Cells(1, 2).Value

Next I



細かい説明はおいといて、上のマクロをがわかるようになると、かなりのことができるようになります。



どの程度のことかは、エクセルの関数や機能をどれだけ使えるかに依存します。



でも、これだけで、できることが広がります。



どんな時に便利かなんてことに、次回は触れたいと思っています!