|
▼kanabun さん:
>▼やまもと さん:
>>データが横に多いため、可視のデータだけを取り出して別のシートに表示させていき、1行ずつチェックしていきたいと考えています。
>>またその行番号を元に別のファイルのデータをindirectで引っ張ってきているので、すぐに行番号が分かるとありがたいのです。
>
>フィルタ範囲のとなりの空いている列に 行番号を書き込んでから
>フィルタ範囲をCOPYしたらどうでしょう?
>
>(例)
> Const col = 100
> '100列あるとします
> With Sheets(1).Range("A1").CurrentRegion.Resize(, col)
> .AutoFilter 2, "=C"
> With .Columns(col + 1).Cells
> .Value = "=ROW()"
> End With
> .Resize(, col + 1).Copy Sheets(2).Range("A1")
> .AutoFilter
> End With
ありがとうございました。
頂いたものを参考にしてひとまず希望に近いものができました。また何かありましたら宜しくお願いします。
|
|