- 365 名前：デフォルトの名無しさん mailto:sage [2009/03/22(日) 10:58:10 ]
- >>362
有難うございます。しかし調べ、いろいろ試し下記のコードを作成したのですが・・・
ActiveCell = Range("R24").Copy
ActiveCell.Offset(30, -2).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub
↑出来ませんでした。R24だと手間が掛かってしまうと思うので、
任意のB列のセルにセルA1の値をコピーし貼り付ける。
という例で結構ですからコードをお願いできないでしょうか？
例えば、
セルB5を選び、マクロを実行したらA1をコピーし同じくB5に貼り付ける。
たったこれだけで良いです。宜しくお願い致します。
