3

UDF (ユーザー定義関数) でいっぱいの 5 枚のワークブックがあります。
これらの 5 つのシートを新しいワークブックにコピーする必要がありますが、必要なのは値だけです。
問題は、これらのシートをコピーすると、UDF を含むすべてのセルが #value で壊れてしまうことです。これは、この新しいブックにマクロがないためです。

モジュールをコピーできません。多くのユーザーがこのワークブックを使用し、Excel でvba project.

ワークブック間で値のみをコピーして貼り付けようとしましたが、うまくいきません。これは、シートに結合された行と列がたくさんあるためだと思います。Excel にエラー メッセージが表示されます。ここでポルトガル語から英語に翻訳しますが、Excel はこれを正確に使用していない可能性があります。

このオプションでは、結合されたセルがすべて同じサイズである必要があります。

このエラーがわかりません。私もこれを手動でやろうとしました：シート全体をコピーし（右クリック、移動、コピー）、元のワークブックで使用されているすべての範囲を選択し、ctrl + c、新しいワークブックの最初のセルを選択してからctrl + vと次に、値のみを貼り付けます。そしてExcelはエラーをスローします。また、ctrl + vを押す前に、新しいワークブックで範囲全体を選択しようとしました。同じ問題。

どうすればいいのかわからない。私が今行っているのは、元のワークブックの値のみをコピーして貼り付け、シート全体を新しいワークブックにコピーすることです。問題は、このアクションが元のワークブックを破壊することです。そのため、やりたくないことを閉じて再度開く必要があります。

誰がどのように進めるかについて何か考えがありますか?

4

3 に答える 3

2

コードを要求された場合、以下のようにギタースローワーのソリューションを自動化できます (本でシート名を変更して以下にコピーします)。

Sub Redone()
Dim WB As Workbook
Dim ws As Worksheet

'runs on ActiveWorkbook
Set WB = ActiveWorkbook
WB.Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")).Copy

'converts formulae to values on new workbook with the 5 specific sheets
For Each ws In ActiveWorkbook.Sheets
    ws.UsedRange.Value = ws.UsedRange.Value
Next

End Sub
于 2014-08-24T03:09:26.697 に答える
1

これを試して：

  • 名前を付けて保存を使用して完全なファイルをコピーする
  • ファイルのコピーで、各ターゲット シートに移動します。
  • 左上のセルを右クリックし、[コピー] を選択します。

ここに画像の説明を入力

  • 次に、もう一度右クリックして、値のみを選択して特別に貼り付けを選択します。
  • 含めたくないシートをすべて削除します。
于 2014-08-22T19:15:43.773 に答える