| |
hana さん、INA さん こんにちは。
>ご指摘ありがとうございます。
>その通りなのですが、
>最下列に必ず値が無くてはならないのがF,G列なのです。
>その他の列は、記載の無いときもあるのです。
>G列は、IF関数が200行目まで入ってします。
>ですので、F列が最適かと思ったのです。
>
>F列の最下行、
>もし、HからS列でFの最下行よりも下行に値があれば、
>それが、F列の最下行という事はできるのでしょうか？
Ｆ列とＨ列〜Ｓ列の入力行の最大値を見つける方法をですが、
意味が合っていますか？
'===========================================================
Sub main()
If WorksheetFunction.CountBlank(Range(Cells(1, 6), Cells(get_max_row, 6))) > 0 Then
MsgBox "Ｆ列は全部埋めてね！！"
Range(Cells(1, 6), Cells(get_max_row, 6)).SpecialCells(xlCellTypeBlanks).Cells(1).Select
End If
End Sub
'=================================================================
Function get_max_row() As Long
Dim max_row(1 To 13)
max_row(1) = Cells(Rows.Count, 6).End(xlUp).Row
For idx = 2 To 13
max_row(idx) = Cells(Rows.Count, idx + 6).End(xlUp).Row
Next
get_max_row = WorksheetFunction.Max(max_row())
End Function
|
|
