Excel VBA 最初の空白でないセルを返す
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
YAGI Hiroto (piroto@a-net.email.ne.jp)
twitter http://twitter.com/pppiroto
Copyright© 矢木 浩人 All Rights Reserved.