[[20180816154917]]　『VBAで関数作成』（GX）　ページの最後に飛ぶ

『VBAで関数作成』（GX）

VBAにて関数を作成したいと思いますが、ご教授いただけないでしょうか？

   A      B     C     D     E     F

1 9/28 8/8 6/5 10/2 9/28
2 6/6 5/6 6/6
3 8/3 5/5 8/8 8/3
4 2/2 2/2

上記のB1～F4のセル範囲で行の1から4それぞれ、一番右のデータをＡ列に表示したいのですが。

よろしくお願いします。

＜使用 Excel：unknown、使用 OS：unknown ＞

VBAを使わなくてもできそうですが、とりあえず、以下のコードを標準モジュールに貼った後、A1セルを「=aaa(B1:F1)」としてみてください。（指定範囲が全部空欄の場合は未考慮）

 Public Function aaa(R As Range)
    aaa = Cells(R.Row, Columns.Count).End(xlToLeft)
 End Function
（???） 2018/08/16(木) 16:16

コメント返信：