- 11 名前：デフォルトの名無しさん mailto:sage [2022/05/02(月) 23:38:34.90 ID: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
