2011-01-02から1日間の記事一覧
With SH1 .Range(.cells(1,1),.cells(LR,LC)).AdvancedFilter _ Action:=xlFilterCopy, _ CriteriaRange:=.Range(.cells(1,20),.cells(2,21)), _ Unique:=True End With これを少し簡単にしたい。 □フィルタ対象レンジ □検索条件レンジ □コピー先レンジなど…
With SH1 .Range(.cells(1,1),.cells(LR,LC)).AdvancedFilter _ Action:=xlFilterCopy, _ CriteriaRange:=.Range(.cells(1,20),.cells(2,21)), _ Unique:=True End With これを少し簡単にしたい。 □フィルタ対象レンジ □検索条件レンジ □コピー先レンジなど…