| |
▼かかこ さん：
>そうなんですか・・・ですがなぜか今までは可視セルの最終行がちゃんと選ばれてました。なぜでしょう。
言葉が足りませんでした。
LastCellは、もちろん 可視セルの最後のセルを見つけます。
申し上げたかったことは、指定した領域内での最終セルではないですよということです。
新規ブックに以下を貼り付けて実行してみてください。
Sub Test()
Dim i As Long, j As Long
'まずA1〜J10 まで値をいれる
For i = 1 To 10
For j = 1 To 10
Cells(i, j).Value = "X" & i & "-" & j
Next
Next
'L20 に値をいれる
Range("L20").Value = "XYZ"
'A1:J10の領域内であれば J10 が最後のセルのはず
MsgBox Range("A1:J10").SpecialCells(xlCellTypeLastCell).Address
'さらに極端に
MsgBox Range("A1").SpecialCells(xlCellTypeLastCell).Address
End Sub
|
|
UO3
- 11/9/27(火) 11:24 -
