ここから本文です

エクセルでマクロを使ってシート3からにボタンを作りセルの範囲指定した場所をシ...

sbk********さん

2019/7/2216:58:24

エクセルでマクロを使ってシート3からにボタンを作りセルの範囲指定した場所をシート1にコピー出来るようにしたいです。

ただし、シート3にはオートフィルを使っており、コピーしたい部分はあくまでも抽出された範囲データのみでコピーしたいです。具体的にはシート3のB~I列ををシート1の13行に、そしてシート3の抽出された2行目以降からは、シート1の14行にというようにしたいのですが、コードを教えてください。

シート,Rows.Count,オートフィル,シート3,エクセル,シート1,E&quot

閲覧数:
38
回答数:
1
お礼:
100枚

違反報告

ベストアンサーに選ばれた回答

lgk********さん

2019/7/2606:55:20

結合セルの事を考えていませんでした。
一度結合を解除してからコピペ後に結合する。これ以外方法はないみたいです。
'
Option Explicit
'
Sub Macro1()
'
    Dim RowE As Long
'
    RowE = [B2].End(xlDown).Row
    Sheets("Sheet1").Select
    Range("B13:I" & Rows.Count).ClearContents
    Range("B13:E" & Rows.Count).UnMerge
    Sheets("Sheet3").Range("B3:I" & RowE).Copy
    [B13].PasteSpecial xlPasteValues
    RowE = [B12].End(xlDown).Row
    Range("B13:E" & RowE).Merge True
    Application.CutCopyMode = False
End Sub

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる