エクセルのマクロについて教えてください。

セル値をコピーして別のシートのセルに貼り付けを行う時に、
コピー側がセルを統合していなく、コピー先がセルを統合しているので、
マクロを実行した時にエラーが出てマクロが実行できません。
解決方法を教えてください。
マクロ
Sub 青紙日付()
Sheets("審査").Range("H10").Copy
Sheets("青紙表").Range("O27").PasteSpecial xlPasteValues
End Sub
です。
よろしくお願いします。

質問者からの補足コメント

• 

  回答ありがとうございます。
  教えて頂いたコードで実行しましたが、
  コピーできませんでした。
  Sheets("青紙表").Range("O27")には「=TODAY()」を設定しており、書式で「2023年7月5日」と設定しております。
  又
  Sheets("審査").Range("O27").valueには書式で「7/5」となるように設定しております。
  解決方法を教えてください。
  よろしくお願いします。

  No.1の回答に寄せられた補足コメントです。 補足日時：2023/07/05 09:58

No.2 ベストアンサー 回答者： 初心者ですが何か。 回答日時： 2023/07/05 10:25

＞Sheets("審査").Range("O27").valueには書式で

と
＞Sheets("審査").Range("H10").Copy

の関係がわかりませんけど。
値の代入はセルの書式設定を変えはしません。
ただ補足の状態では
Sheets("青紙表").Range("O27")　にある数式に値を入れてしまいます。
例えコピペであれ代入であったとしても。
なのでどうしてそのような必要があるのかが不明と言うか、コピペの指定が逆に書かれてるようにも感じます。

No.5 回答者： xs200 回答日時： 2023/07/05 11:00

おかしくない?

代入先と代入元が反対では?

それとコピーと代入は別物

=today()を入れたいならコピーなどせずに=today()を入れておけばいいだけでは?

この回答へのお礼

回答ありがとうございます。
改めて考えてみます。

お礼日時：2023/07/05 11:01

No.4 回答者： tatsumaru77 回答日時： 2023/07/05 10:37

補足要求です。

補足要求１：
>Sheets("青紙表").Range("O27")には「=TODAY()」を設定しており、書式で「2023年7月5日」と設定しております。

これは、コピー先のセルですよね。そのセルに当時の日付が表示されるようになっているので、そのセルにコピーすること自体が、間違いのような気がします。

Sheets("青紙表").Range("O27")には、どのような値を設定したいのでしょうか。

補足要求２：
＞Sheets("審査").Range("O27").valueには書式で「7/5」となるように設定しております。
これは、
「Sheets("審査").Range("H10").valueには書式で「7/5」となるように設定しております。」の誤りですか。
そうだとして、Sheets("審査").Range("H10")には、どのような値が設定されていますか？

この回答へのお礼

回答ありがとうございます。
改めて考えてみます。

お礼日時：2023/07/05 11:01

No.3 回答者： fxq11011 回答日時： 2023/07/05 10:34

マクロに頼らずにそれを実行するときはどうします。

①結合されたセルをポイント
②セルの書式設定で結合を解除
③値が入力されているセルをポイント、コピー
④貼り付けたいセルをポイント、ペースト
この作業をマクロの記録で記録すればマクロ自体はできます、そのままでは、異なる位置のセルの場合相対参照で可能ならそのまま使用可能です。
実行に当たってはマクロから該当マクロをポイントしたうえでマクロの実行をポイントする必要はありますが。
実行を半ば自動的にする方法もあるようですが、そこまでは熟知していません。
マクロは実行可能な作業を記録して再現するだけのものです。
通常手作業でも、結合したセルをコピーして、異なる結合のセルに貼り付けできません。
マクロのみでは実行不可能です。

この回答へのお礼

回答ありがとうございます。
改めて考えてみます。

お礼日時：2023/07/05 11:01

No.1 回答者： 初心者ですが何か。 回答日時： 2023/07/05 09:40

値のコピーなら代入でも宜しいのでは？

Sheets("青紙表").Range("O27").value = Sheets("審査").Range("H10").value

これで何か不都合がありましたか？