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