Excel VBA 質問スレッド No.56 (解決済)

セルの色までコヒー貼り付け

投稿者 : 鎌田重蜀     投稿日時 : 2019/03/07(Thu) 16:10:30     OS : Windows 10     EXCEL : Excel 2013
以下のコードでコピー貼り付けを行ってします。sheet1を一度コピー貼り付けしておいて、そのデータを削除後にコピー貼り付けすると、列と行が狂いなく実行できますが、標準の状態では、そのようになりません。最初からコピー貼り付けする場合は、どのようなコードにするべきか、教えて下さいませんか。
また、B列に色を付けています、それも貼り付けられたらよいのですが、如何なものでしょうか。

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("A1:O" & LstRow1).Copy
Worksheets("Sheet2").Range("A" & LstRow2).PasteSpecial xlPasteValues
Worksheets("Sheet2").Range("A" & LstRow2).PasteSpecial xlPasteColumnWidths

End Sub

[返信 1] Re : セルの色までコヒー貼り付け
投稿者 : スズキ     投稿日時 : 2019/03/07(Thu) 19:49:24
単純にSheet1の特定セルを背景色も含めてSheet2にコピーするだけであれば、
以下のコードでいけると思います。


Sub sample()

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

' コピー命令は1行で記述
Worksheets("Sheet1").Range("A1:O" & LstRow1).Copy Worksheets("Sheet2").Range("A" & LstRow2)

End Sub

[返信 2] Re : セルの色までコヒー貼り付け
投稿者 : 鎌田重蜀     投稿日時 : 2019/03/07(Thu) 21:06:57
■[返信 1] スズキさん(2019-03-07 19:49:24)の記事

ありがとうございました。できました。完成致します。

> 単純にSheet1の特定セルを背景色も含めてSheet2にコピーするだけであれば、
> 以下のコードでいけると思います。


> Sub sample()

> 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

' コピー命令は1行で記述
> Worksheets("Sheet1").Range("A1:O" & LstRow1).Copy Worksheets("Sheet2").Range("A" & LstRow2)

> End Sub

[返信 3] Re : セルの色までコヒー貼り付け
投稿者 : スズキ     投稿日時 : 2019/03/07(Thu) 23:13:17
無事完成したとのことでよかったです。
このスレを解決済みにしておきます。

スポンサード リンク
 
 
当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2019-07-18 02:08:30 )

Page
Top