回答編集履歴

1

コメントに対しての追記

2017/09/25 08:34

投稿

otn
otn

スコア84423

test CHANGED
@@ -23,3 +23,29 @@
23
23
  End Sub
24
24
 
25
25
  ```
26
+
27
+ #追記
28
+
29
+ > "("が始まってから三文字削除する。
30
+
31
+
32
+
33
+ "("があれば、"("以降を全て削除と言う事にします。
34
+
35
+ ```VBA
36
+
37
+ foo = Instr(Cells(i, 2).Value,"(")
38
+
39
+ If foo > 0 Then
40
+
41
+ bar = Left(Cells(i, 2).Value, foo-1)
42
+
43
+ Else ' "("が無かった
44
+
45
+ bar = Cells(i, 2).Value
46
+
47
+ End If
48
+
49
+ Cells(i, 2).Value = CDate("20" + bar)
50
+
51
+ ````