- 29 名前：デフォルトの名無しさん mailto:sage [2013/03/31(日) 23:12:56.71 ]
- >>28
Dim targetColumn as Integer
targetColumn = 1
Dim resultRange as Range
set resultRange = Columns(targetColumn).Find("*", LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
Dim resultRow as Long
If resultRange Is Nothing Then
resultRow = 1
Else
resultRow = resultRange.Row
End If
出来ました、ありがとうございます
ワイルドカードを逆順で検索、思いつきませんでした
