エクセル関数 AtoZ

以下のようなエクセルで行いたい場合の方法をご紹介します。

【問題】
Ａ列に入力されている複数の数字から、最小値を求めＢ列に表示させたい。
（例）Ａ１セル「100*30*5*10」
　　　Ｂ１セル「5」

【検索方法１】
１．対象となるセル（この場合Ａ１セル）を選択します。
２．メニュー　→　データ　→　区切り位置　→　カンマやタブ　を選択し「次へ」
３．区切り文字の所の指定を「その他」→「*」と入力で、数字が４つに分かれます。
４．区切られた数字の範囲をセル指定し、「=MIN(セル範囲)」と入力すると最小値が検索されます。

【検索方法２】
マクロで関数を作成しそれを指定する方法です。
１．ユーザー定義関数を使用します。
２．メニューより「挿入」→「標準モジュール」を選択
３．VBE画面が開いたら以下のコードを記述します。
　Function mojimin(Target As Range) As Variant
　Dim A As Variant, B As Variant
　Dim i As Double

　A = Split(Target.Value, "*")
　ReDim B(0 To UBound(A))
　For i = LBound(A) To UBound(A)
　　B(i) = CDbl(A(i))
　Next
　mojimin = WorksheetFunction.Min(B)
　End Function

４．最小値を表示させたいセルに「=mojimin(A1)」と指定します。


上記二つの方法のいずれを使っても最小値が表示されると思いますので参考にしてみてください。