|
▼Jaka さん:
>レイアウトがどうなっているのか聞きなおすのも面倒なので、
>適当にカスタマイズしてください。
>参考になるかわからないけど...。
>
>Dim Cel As Range, CelAry() As Range
>G = 0
>For Each Cel In Sheets("Sheet1").AutoFilter.Range.Columns("B").SpecialCells(xlVisible)
> G = G + 1
> ReDim Preserve CelAry(1 To G)
> Set CelAry(G) = Cel
>Next
>G = 0
>For Each Cel In Sheets("Sheet2").AutoFilter.Range.Columns("M").SpecialCells(xlVisible)
> G = G + 1
> If G <> 1 Then Cel.Value = CelAry(G)
> If UBound(CelAry) = G Then Exit For
>Next
>Erase CelAry
アドバイスありがとうございます。
上の構文でわからないところがあるのですが、
For Each Cel In Sheets("Sheet1").AutoFilter.Range.Columns("B").SpecialCells(xlVisible)
の("B")は何をさしているのでしょうか?
また、 ReDim Preserve CelAry(1 To G)にオートメーションエラーが出てしまい、範囲対象外となってしまいました。
きちんとコードが理解できていないので、時間がかかってしまいました。
もしできるなら、意味を教えていただけませんでしょうか?
お手数をおかけしますが、よろしくお願いします。
|
|