[[20230424144516]]　『VBA 書式の貼り付け』（書式の貼り付け）　ページの最後に飛ぶ

『VBA 書式の貼り付け』（書式の貼り付け）

よろしくお願いいたします。

シート1のA3のセルに太文字、下線ありでAAAと入力されています。

以下のマクロを実行するとシート3へ太文字、下線ありでAAAとコピーされます。

しかし、シート1のA3のセルにAAA->BBB
AAAは太文字、下線あり
　->BBBは太文字、下線なし
の場合、シート3へはAAA->BBB　太文字、下線なしでコピーされてしまいます。

AAA->BBB
AAAは太文字、下線あり
　->BBBは太文字、下線なし
のままコピーするにはどうすればよいのでしょうか。

すみませんがご教示願います。
よろしくお願いいたします。

Sheet1.Range("A3:B14").Copy
Sheet3.Range("A24:B35").PasteSpecial Paste:=xlPasteFormats '書式の貼り付け
Sheet1.Range("A3:B14").Copy
Sheet3.Range("A24:B35").PasteSpecial Paste:=xlPasteValues '値の貼り付け
Sheet3.Range("A24").Select
Application.CutCopyMode = False 'コピーモードの解除

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

 全部コピーすれば良いと思いますが。
 Sub test()
     Worksheets("Sheet1").Range("A3:B14").Copy Worksheets("Sheet3").Range("A24:B35")
 End Sub
（フォーキー） 2023/04/24(月) 15:09:47

フォーキーさん

すみません。
全くその通りです。

投稿の取り消し方法がわからず、ご迷惑をおかけしました。
（書式の貼り付け） 2023/04/24(月) 15:11:50

For i = 3 To lastRow Step 10

Sheet1.Cells(i, 1).Resize(10, 10).Copy

Sheet3.Cells(1, 1).Resize(10, 10).PasteSpecial Paste:=xlPasteAll '書式の貼り付け

Sheet3.Cells(1, 1).Resize(10, 10).PasteSpecial Paste:=xlPasteValues '値の貼り付け

Sheet3.Cells(1, 1).Resize(10, 10).FormatConditions.Delete '条件付き書式の削除

Application.CutCopyMode = False 'コピーモードの解除

Sheet3.Cells(1, 1).Resize(10, 10).Interior.ColorIndex = 0 'セルの塗りつぶしなし

シート3のA列～H列までは書式を維持し、I列～は数値のみをコピーしたいのですが、どうやればよいのでしょうか。

（書式の貼り付け） 2023/04/24(月) 16:39:53

 合ってるか分かりませんが、参考程度にどうぞ。

 '書式すべて
 Worksheets("Sheet1").Cells(i, "A").Resize(10, 8).Copy Worksheets("Sheet3").Cells(i, "A")

 '値だけ
 Worksheets("Sheet3").Cells(i, "I").Resize(10, 2) = Worksheets("Sheet1").Cells(i, "I").Resize(10, 2)

 ・気になる点
 >Sheet3.Cells(1, 1)
 これ本当に動くんですか？ 変数が宣言されていないってエラーになりませんか？
 変数の宣言を強制していない場合、オプションにチェック入れたほうがいいです。

 >Sheet1.Cells(i, 1)
 >Sheet3.Cells(1, 1)

コピーは３行目から最終行まで１０行ずつコピーしてますが、貼り付けは常にA1セルが起点になっていますけど、意図どおりの動きなんですか？

個人的には、コードだけ、ましてや一部分だけのコードよりもレイアウトとデータ内容、そして希望する結果を提示してもらうほうが回答しやすいです。
（フォーキー） 2023/04/24(月) 17:17:17

フォーキーさん

ありがとうございました。
参考のマクロで動きました。

＞個人的には、コードだけ、ましてや一部分だけのコードよりもレイアウトとデータ内容、そして希望する＞結果を提示してもらうほうが回答しやすいです。

申し訳ありませんでした。

最後まで面倒を見てくださり、感謝の念に堪えません。
ありがとうございました。
（書式の貼り付け） 2023/04/25(火) 14:02:56

コメント返信：

[ 一覧(最新更新順) ]

[[20230424144516]] 『VBA 書式の貼り付け』（書式の貼り付け） ページの最後に飛ぶ

[[20230424144516]]　『VBA 書式の貼り付け』（書式の貼り付け）　ページの最後に飛ぶ