|
分かりにくい私の説明の中、親切にご返答してくださり有難うございます。
課題は英文なんです。。
↓
Write a function that receives a row number and a column number, finds the last row with data in that column, and returns the row number of the last row with data to the calling sub. Write a sub to test the function and display the number of the last row with data.
おそらく、そのような答えを教授が求めていると思います。
本当に有難うございましたm−ーm
▼ウッシ さん:
>こんにちは
>
>課題が英文なんでしょうか?
>
>想像で、
>
>Function test(r As Long, c As Long) As Variant
>'=test(1000,1)とすると
>'1列目の1000行まで調べて最後の値を表示する
> Dim i As Long
> test = ""
> For i = 1 To r
> If Cells(i, c) = "" Then
> Exit For
> End If
> test = Cells(i, c)
> Next
>End Function
>
>こんな事でしょうか?
|
|