12,665
回編集
差分
ナビゲーションに移動
検索に移動
ページの作成:「==Excel VBA 最初の空白でないセルを返す== [Excel VBA][Excel] Function FindFirst(cells As Range) Dim r As Long Dim c As Long Dim ret As Ra…」
==Excel VBA 最初の空白でないセルを返す==
[Excel VBA][Excel]
Function FindFirst(cells As Range)
Dim r As Long
Dim c As Long
Dim ret As Range
Dim hit As Boolean
hit = False
For r = 1 To cells.Rows.Count
For c = 1 To cells.Columns.Count
If cells(r, c).Text <> "" Then
Set ret = cells(r, c)
hit = True
Exit For
End If
Next
If hit Then
Exit For
End If
Next
Set FindFirst = ret
End Function
[Excel VBA][Excel]
Function FindFirst(cells As Range)
Dim r As Long
Dim c As Long
Dim ret As Range
Dim hit As Boolean
hit = False
For r = 1 To cells.Rows.Count
For c = 1 To cells.Columns.Count
If cells(r, c).Text <> "" Then
Set ret = cells(r, c)
hit = True
Exit For
End If
Next
If hit Then
Exit For
End If
Next
Set FindFirst = ret
End Function
© 2006 矢木浩人
