2017-01-27 4 views
0

私は、さまざまな業務用に15枚のブックを持っています。複数のシートを2枚のマスターシートに統合

このブックは、各シートに複数の空の行があるテンプレートです。

シート1,4,7,10、および13を、空でない行だけを追加するマスターシートに統合したいと思います。

さらに、シート2,5,8,11,14を、空でない行だけを追加するマスターシートに統合したいと思います。

これはVBAで行うことができると思いますが、その方法はわかりません。

+0

私はMac用のExcelを使用していません。 –

+0

[ODBCドライバ](https://support.office.com/en-us/article/ODBC-drivers-that-are-compatible-with-Excel-for)をダウンロードすると、 -Mac-9FA6BC7F-D19E-4F7F-9BE4-92E85C77D712)を使用すると、ワークブックでSQLクエリを実行できます。特に、WHERE句を使用して空の行をフィルタリングするユニオンクエリを実行できます。 – Parfait

答えて

0

以下は、問題の一部です。

このコードでは、最初の列の空白を削除して新しいシートにデータをコピーします。

Sub SelectNonBlankAndPasteonNewSheet() 

    Cells.Select 
    Selection.AutoFilter 

    With Selection 

     .AutoFilter Field:=1, Criteria1:="<>" 
     .SpecialCells(xlCellTypeVisible).Copy 

    End With 

    Sheets.Add After:=ActiveSheet 
    ActiveSheet.Paste 
End Sub 
関連する問題