[[20151123214852]]　『マクロ』（ろと）　ページの最後に飛ぶ

『マクロ』（ろと）

A列　B列　C列
A 　　　1 　　あ
A 　　　2 　　い
A 　　　3 　　う
A 　　　4 　　え
A 　　　5 　　お
A 　　　6
A 　　　7
A 　　　8
B 　　　1 　　か
B 　　　2 　　き
B 　　　3 　　く
B 　　　4 　　け
B 　　　5 　　こ
B 　　　6
B 　　　7
B 　　　8

上記のような表があります。Sheet1とします。　これをマクロを使ってSheet2に下記表のように反映させたいのですが・・・

A列　B列　C列
A 　　　1 　　あ
A 　　　2 　　い
A 　　　3 　　う
A 　　　4 　　え
A 　　　5 　　お
B 　　　1 　　か
B 　　　2 　　き
B 　　　3 　　く
B 　　　4 　　け
B 　　　5 　　こ

ようはSheet1のC列に入力がなにもないときはその行は無視した形で反映させたいのです。
何卒宜しくお願い致します

＜使用 Excel：Excel2003、使用 OS：Windows7 ＞

 手っ取り早く、横着に（？）実行する一例です。

 Sub Test()

    Sheets("Sheet1").Range("A1").CurrentRegion.Copy Sheets("Sheet2").Range("A1")
    On Error Resume Next
    Sheets("Sheet2").Range("A1").CurrentRegion.Columns("C").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    On Error GoTo 0

 End Sub

（β） 2015/11/23(月) 22:31

 C列すべてが空白だと具合悪いですが、以下でも。

 Sub Test2()
    With Sheets("Sheet1")
        .Rows(1).Insert
        .AutoFilterMode = False
        .Range("A1").CurrentRegion.AutoFilter Field:=3, Criteria1:="<>"
        Intersect(.AutoFilter.Range, .AutoFilter.Range.Offset(1)).Copy Sheets("Sheet2").Range("A1")
        .AutoFilterMode = False
        .Rows(1).Delete
    End With
 End Sub

（β） 2015/11/23(月) 22:45

ありがとうございます。
試してみます。
（ろと） 2015/11/23(月) 22:57

できましたぁ。望みどおりのものが出来ました。
ほんと助かります。
（ろと） 2015/11/23(月) 22:58

コメント返信：

[ 一覧(最新更新順) ]

[[20151123214852]] 『マクロ』（ろと） ページの最後に飛ぶ

[[20151123214852]]　『マクロ』（ろと）　ページの最後に飛ぶ