[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『マクロ』(ろと)
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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.