|
等幅フォントに直しました。(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
|
|