22/05/02 23:38:34.90 hdDLukhc0.net
>>10
すげーざっくりだけどやりたいことはこんな感じ？
やりたいことがあってるならもう少しちゃんとしたコードにはするけど
SelectとかCopy、Pasteは基本VBAで使わないので
Dim WS As WorkSheet
Set WS=ActiveSheet
Dim RngA1 As Range
Set RngA1=WS.Cells(1,1)
Dim i As Long
For i = 1 to 16384
If WS.Cells(i,1).Value="" Then
Exit For
Else
WS.Cells(i, 1).Value=WS.Cells(i, 2).Value
End If
Next