回答編集履歴
1
間違い
test
CHANGED
@@ -3,6 +3,8 @@
|
|
3
3
|
マクロより数式なら結構わかる人がいるような気がする
|
4
4
|
|
5
5
|
```ExcelVba
|
6
|
+
|
7
|
+
**間違い**
|
6
8
|
|
7
9
|
Application.ScreenUpdating = False
|
8
10
|
|
@@ -13,3 +15,19 @@
|
|
13
15
|
Next i
|
14
16
|
|
15
17
|
```
|
18
|
+
|
19
|
+
参照列逆だった
|
20
|
+
|
21
|
+
```ExcelVba
|
22
|
+
|
23
|
+
**修正**
|
24
|
+
|
25
|
+
Application.ScreenUpdating = False
|
26
|
+
|
27
|
+
For i = 3 To 14
|
28
|
+
|
29
|
+
Cells(i, "H") = "=IF(" & Cells(i, "D").Address & ">0,IF(ISERROR(MATCH(" & Cells(i, "D").Address & ",$k$3:$k$15,0)),""No_match"",IF(MATCH(" & Cells(i, "D").Address & ",$k$3:$k$15,0),"""",""No_match"")),""No_match"")"
|
30
|
+
|
31
|
+
Next i
|
32
|
+
|
33
|
+
```
|