美貌録(備忘録)
2015.07.30 Thursday
最終行の値を表示
Option Explicit
Sub COUNT()
Range("A1") =
Range
("$C$65536").End(xlUp).Value
End Sub
訂正
↓
Sub COUNT()
Range("A1") = Value("$C$65536").End(xlUp).Value
End Sub
1
2
3
4
5
>|
next>>