回答No1です.
もう解決されているかもしれませんが,質問者さんのやりたいことはある数字の組み合わせがあって,回答の値を入力して組み合わせを求める事ですよね?
補足に書かれている表であるなら単純な関数で検索する事は難しいですし,さらにはいくつかの組み合わせがあるので,複数個の組み合わせを抽出しなければなりません.
そこで1つ提案ですが,やりたいことは割り算であれば分子の値,分母の値,答えの3つの列を用意して数値の最小・最大値および答えを入力して数値の中から答えが一致する組み合わせを出力する方法はどうでしょうか?
具体的にはVBAを使用します.例として
最小値:10
最大値:11
答え:1
この場合は 10/10 と 11/11しかありませんので組み合わせは
分子=10 分母=10
分子=11 分母=11
が出力されれば良いわけです.
組み合わせと答えを計算するマクロは
Sub calc()
Dim i As Single '答え
Dim j As Single '分子
Dim k As Single '分母
Dim l As Integer '演算子 分子
Dim m As Integer '演算子 分母
Dim n As Integer '演算子 行
Range("A2:C1048576").Clear '前の計算結果の消去
j = Range("E2").Value
k = Range("E2").Value
n = 2
For m = Range("E2").Value To Range("E4").Value Step 1
For l = Range("E2").Value To Range("E4").Value Step 1
i = j / k
Cells(n, 2) = j
Cells(n, 3) = k
Cells(n, 1) = i
j = j + 1
n = n + 1
Next l
j = Range("E2").Value
k = k + 1
Next m
End Sub
答えを出力するマクロは
Sub filter()
Dim lastRow As Long
Dim myData As Range 'データ範囲
Dim myCriteria As Range '抽出条件
With Worksheets("Sheet1") 'データがあるシートをシート1とする
lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
Set myData = .Range("A1", .Cells(lastRow, 3))
End With
Set myCriteria = Worksheets("Sheet1").Range("F1:F2")
Worksheets("Sheet2").Cells.Clear
myData.AdvancedFilter Action:=xlFilterCopy, criteriarange:=myCriteria, _
copytorange:=Worksheets("Sheet2").Range("A1"), unique:=True
End Sub
これでSheet2に組み合わせが出力されると思います.
お礼
ご回答有難う御座います。最初の回答を頂いてから日にちが経過しているにもかかわらず未だ解決しておりません。 私の理解不足により、また日常の仕事をこなしながらになっておりまして(言い訳です、すみません)とてつもなくありがたいご指導に応える事ができておりません。これが解決すると会社の財産として永遠に残ることになります。早く解決して御礼申し上げるべきところですが、今しばらくお時間を頂きたく思います。