[[20210115133238]]　『罫線を反映させずに値貼り付け』（せれん）　ページの最後に飛ぶ

『罫線を反映させずに値貼り付け』（せれん）

ExcelfileというbookからE19:E21を値貼り付け、行列入れ替え、書式設定は貼り付けない方法で貼り付けたいのですが、以下の式だと貼り付け先に罫線が入ってしまいます。罫線を反映させないようにするにはどうすればよいでしょうか。

Excelfile.Sheets("あ").Range("E19:E21").Copy

  ThisWorkbook.Sheets("あ").Range("K" & r).PasteSpecial Paste:=xlPasteValues, Transpose:=True

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

 同一環境でも、再現しません。コードとしてはそれで問題ないように思えます。
 貼付先に条件付き書式が設定されているとかいったことはありませんか？
 まったく新しいブックで、下記を実行し、再現するか確認してみてはいかがですか？
 Sub test()
    Range("A1:A3").Copy
    Range("B1").PasteSpecial Paste:=xlPasteValues, Transpose:=True
 End Sub

（γ） 2021/01/15(金) 16:53

コメント返信：

[ 一覧(最新更新順) ]

[[20210115133238]] 『罫線を反映させずに値貼り付け』（せれん） ページの最後に飛ぶ

[[20210115133238]]　『罫線を反映させずに値貼り付け』（せれん）　ページの最後に飛ぶ