[[20190305205212]]　『行列幅までコピー貼り付けについて』（アイコス３）　ページの最後に飛ぶ

『行列幅までコピー貼り付けについて』（アイコス３）

webサイトで下記のコードを見つけて、希望のことはだいたいできました。
でも、コピーペーストしたらセルの行列幅がバラバラで、行列幅までを合わせるのには、どのように追加コードが必要か、教えて頂けませんか、よろしくお願い致します。

Sub タイトル行を除き別シートに追加()

'変数の宣言

    Dim LstRow1 As Long
    Dim LstRow2 As Long

'最終行の取得

    LstRow1 = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row
    LstRow2 = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row

'タイトル行を除き、Sheet2へコピー、貼り付け

    Worksheets("Sheet1").Range("A2:C" & LstRow1).Copy
    Worksheets("Sheet2").Range("A" & LstRow2).Offset(1, 0).PasteSpecial xlPasteAll

End Sub

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

質問です

１）列幅は、事前に１回設定しておけば毎回コピーしてなくてよいのでは。
２）行高さは、行によってばらばらなのでしょうか？共通ならこちらも事前に最初に１回でよいのでは。

（マナ） 2019/03/05(火) 22:29

お礼が遅くなってすみません。ありがとうございました。
このようにやって見ました。但し、最初でコピーして於いてからマクロを使い実行しました。できました。
マナさんが言われるように、あまり意味がないかなと思いました。
　
　変更したコード

    Worksheets("Sheet1").Range("A1:O" & LstRow1).Copy←範囲を広げています
    Worksheets("Sheet2").Range("A" & LstRow2).PasteSpecial xlPasteValues
    Worksheets("Sheet2").Range("A" & LstRow2).PasteSpecial xlPasteColumnWidths
（アイコス３） 2019/03/07(木) 08:22

コメント返信：

[ 一覧(最新更新順) ]

[[20190305205212]] 『行列幅までコピー貼り付けについて』（アイコス３） ページの最後に飛ぶ

[[20190305205212]]　『行列幅までコピー貼り付けについて』（アイコス３）　ページの最後に飛ぶ