回答編集履歴
1
追記
test
CHANGED
@@ -17,5 +17,14 @@
|
|
17
17
|
Cells(i, 3).Value = "'" & dic(Cells(i, 1).Value)
|
18
18
|
Next
|
19
19
|
End Sub
|
20
|
+
```
|
20
21
|
|
22
|
+
------
|
23
|
+
<追記>
|
24
|
+
つい癖でVBAで書いてしまいましたが、セル関数を使ってワークエリアで
|
25
|
+
```ここに言語を入力
|
26
|
+
[D2] =VALUE(C2)
|
27
|
+
[E2] =MINIFS(D:D,A:A,A2)
|
28
|
+
(あとは全行にコピー)
|
21
29
|
```
|
30
|
+
みたいにする手もあるかと思います。
|