==[[Excel VBA 最初の空白でないセルを返す]]==
[[Excel VBA]] | [[Excel]] |
Function FindFirst(cells As [[R]]angeRange)
Dim r As Long
Dim c As Long
Dim ret As [[R]]angeRange
Dim hit As Boolean
hit = False
For r = 1 To cells.[[R]]owsRows.Count
For c = 1 To cells.Columns.Count
If cells(r, c).Text <> "" Then