回答編集履歴
1
転記先を全クリアする処理を追加
test
CHANGED
|
@@ -7,6 +7,8 @@
|
|
|
7
7
|
row = 1
|
|
8
8
|
|
|
9
9
|
|
|
10
|
+
|
|
11
|
+
namei.ClearContents
|
|
10
12
|
|
|
11
13
|
For k = 1 To b.Cells.Count
|
|
12
14
|
|