|
おはようございます。
>例えば、Aのシートの B2:Y100の値をコピーして、
>隣のシートBのB2:Y100にペーストしたく、
>マクロコードをボタンに登録しようとしたののですが
>「セルの大きさが同じでないと実行できない」とのエラーメッセージが表示されます。
>シートBは、シートAの見出しタグをドラッグしてコピーをして作成したものですが、シートBのセルの大きさはシートAと同じのはずなのですが・・・。
先範囲.Value = 元範囲.Valueで、値貼り付けと同じような処理になります。
元の質問が回覧用にシートをコピーした新しいブックの作成だったので、
Sub TEST()
Dim wb As Workbook
Worksheets("A").Copy '新しいブックにシートをコピー
'
Set wb = Application.ActiveWorkbook '新しいブック
'
With wb.Worksheets("A").UsedRange
.Value = .Value '式を値に変える
End With
'このブックの名前に月日時分を付け加えたファイル名を設定
wb.SaveAs Replace(ThisWorkbook.FullName, ".xls", Format(Now(), "回覧用_mmddhhnn") & ".xls")
End Sub
こんな感じです。
ファイル名はかぶらないように適当につけただけなので、無視してください。
|
|