いつも大変お世話になっております。
VBAで分からない点があったので、質問させてください。
前提
・ExcelのBOOKには3枚のシートがある
・先頭のシートには残りの2枚のシートから参照した値が書き込まれている。
上記のような状況で、
新しく他のブック(名前は固定で良い)に1枚目のシートの【値】を全てコピーする方法を
探しております。
一応試しに書いて見たのですが、
分からなかったのでどなたかご教授ください。
VBA
1Public Function Copydata() 2 3Dim sname As String 4Dim rng As Variant 5 6sname = ActiveSheet.Name 'シート名 7 8'現状、選択範囲の指定になってますがここをシート全体の範囲にすればいけるのですが 9'どうすればいいでしょうか。。。 10rng = Selection.Address 11 12Worksheets(sname).Range(rng).Copy Destination:=Worksheets.Add.Range("A1") 13ActiveSheet.Move 14sheet1.PasteSpecial(xlPasteValuesAndNumberFormats, Application.CutCopyMode = False).Close 15
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。