Excelのデータを含むセルのみをPowerpoint VBAにコピー

Question

適用されているフィルタによっては、サイズ（行数、列数は常に同じ）によって異なる表がExcel上にあります。

表は、「小売業者」と呼ばれるシートの範囲B2：F7にあります。

"Stores"と呼ばれる既存のPowerpointプレゼンテーションのスライド35にテーブルをコピーするVBAスクリプトを作成したいと思います。しかし、テーブルのサイズが異なるので、コードが実行されるたびに、値を持つ行だけをコピーすることをお勧めします。

私はこれを行うことを試みた：

Sub Copy Table() 

'Copy Range from Excel 
    Set rng = ThisWorkbook.Sheets("Retailers").Range("B2:F7") 

'Copy Excel Range 
    rng.Copy 

'Paste to PowerPoint and position 

私はパワーポイントに貼り付けしても、データだけで行をコピーする方法を確認していません。

これを行うにはどうすればいいですか？

Answer 1

Sub t() 
    Dim copy_range As Range, paste_range As Range 
    With Sheets("Sheet1") 
     Set copy_range = .Range("A1:A" & .Range("A" & .Rows.Count).End(xlUp).Row) 
    End With 

    Set paste_range = Sheets("Sheet2").Range("A5") 

    copy_range.Copy paste_range 
End Sub 

Answer 2

したがって、空白以外のセルを選択する方法は問題です。 EndRowプロパティを使用して、ダイナミックレンジの選択を使用できます。通常のExcelビューでは、Ctrl + Shift +矢印ショートカットのように機能します。