マクロ保存

マクロ有効として保存すると、.xlsmの拡張子で保存される

Sub copydata2()

Dim i As Long
i = 1

Do While Worksheets(“sheet1”).Cells(i, 1).Value <> “”
Worksheets(“sheet2”).Cells(i, 1).Value = _
Worksheets(“sheet1”).Cells(i, 1).Value
i = i + 1
Loop

End Sub