[[20190617212325]]　『シートコピーして列削除マクロの方法』（ねこまんま）　ページの最後に飛ぶ

『シートコピーして列削除マクロの方法』（ねこまんま）

こんばんは。初歩的な質問で申し訳ありませんが、ご教示下さい。
マクロを使って、【シート1】をまんまコピーしたものを【シート2】として、(シートタブからのコピーではなく、例えばA1からM200をまんまコピーして、シート2に貼り付け)そこから【シート2】のc列だけ削除したいです。マクロでボタン設定して、毎回ボタンを押せば削除までの段階までいきたい。
私がやると列幅がおかしくなってしまったり、ボタンを押すたび列が削除されてしまいます…。

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

＞私がやると列幅がおかしくなってしまったり、ボタンを押すたび列が削除されてしまいます…。

そのコードを提示していただけますか。

（マナ） 2019/06/17(月) 21:38

マナさん

よろしくお願いします。

Sub Macro4()
'
' Macro4 Macro
'

    Range("B2:I37").Select
    Selection.Copy
    Sheets("Sheet4").Select
    Range("B2").Select
    ActiveSheet.Paste
    Columns("C:C").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
End Sub

（ねこまんま） 2019/06/17(月) 21:58

＞列幅がおかしくなってしまったり、

貼り付けのオプションに、「元の列幅を保持」というのがあります。

＞ボタンを押すたび列が削除されてしまいます…。

列を挿入してから、貼り付け、列削除してはどうでしょう。

（マナ） 2019/06/17(月) 22:09

う～～～ん・・・
うまくいきません。

（ねこまんま） 2019/06/17(月) 22:22

まずは、手作業で試しましたか。

（マナ） 2019/06/17(月) 22:24

マナさん

お礼遅くなり申し訳ありません。
列挿入の場所が悪かったようでエラーになってしまってましたが、コピー外の列挿入したら出来ました！
ありがとうございました！
（ねこまんま） 2019/06/18(火) 19:33

コメント返信：

[ 一覧(最新更新順) ]

[[20190617212325]] 『シートコピーして列削除 マクロの方法』（ねこまんま） ページの最後に飛ぶ

[[20190617212325]]　『シートコピーして列削除マクロの方法』（ねこまんま）　ページの最後に飛ぶ