10/05/27 01:05:00
>>43
Cells(i, 12).Copy Destination:=Range("A65536").End(xlUp).Offset(0, 2) にしたら動きました。
なんででしょう？？？
ついでに・・・
Range(Cells(i, 15), Cells(i, 18)).Copy Destination:=Range("A65536").End(xlUp).Offset(0, 4) の値を
プラスマイナス反転させるにはどうすればいいでしょうか？
-(Range(Cells(i, 15), Cells(i, 18)).Copy) と書いたらコンパイルエラーになってしまいました（＞＜）