回答編集履歴
1
コード追記
answer
CHANGED
|
@@ -4,9 +4,17 @@
|
|
|
4
4
|
|
|
5
5
|
あるいは、この程度なら、RegExpを使うまでもないです。
|
|
6
6
|
|
|
7
|
+
確認用コード
|
|
7
8
|
```vba
|
|
8
9
|
Dim s As String
|
|
9
10
|
s = "2020年01月02日(THU)"
|
|
10
11
|
s = Split(s, "日")(0)
|
|
11
12
|
MsgBox s
|
|
13
|
+
```
|
|
14
|
+
|
|
15
|
+
セル更新コード例
|
|
16
|
+
```vba
|
|
17
|
+
For j = 2 To ws_list.Range("A" & Rows.Count).End(xlUp).Row
|
|
18
|
+
ws_list.Cells(j, 1).Value = Split(ws_list.Cells(j, 1).Value, "日")(0)
|
|
19
|
+
Next
|
|
12
20
|
```
|