|
▼Jaka さん:
>等幅フォントに直しました。(2回目、以下前回と全く同じ)
>
>考え方だけですけど。
>
>Set AutRag = Sheets("Sheet1").AutoFilter.Range
>With AutRag.Offset(1).Resize(AutRag.Rows.Count - 1)
> .Select
> LastCol = .Columns(.Columns.Count).Column
> MsgBox "オートフィルタ範囲最後の列は、" & LastCol
> LastRow = .Rows(.Rows.Count).Row
> MsgBox "オートフィルタ範囲最後の行は、" & LastRow
> .SpecialCells(xlCellTypeVisible).Select
> For Each Rng In .SpecialCells(xlCellTypeVisible).Rows
> Rng.Columns(.Columns.Count).Offset(, 1).Select
> MsgBox Rng.Columns(.Columns.Count).Offset(, 1).Address & _
> "この位置から左側を調べる...。"
> Next
>End With
返信ありがとうございます今回Lindyさんの方が、自分の求めているものに
近いようななのでそちらでがんばってみます。
未熟なわたしなので教えてもらう事ばかりですが又よろしくご教授ください
T-k
|
|