質問編集履歴
1
コードの変更
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -14,15 +14,7 @@
|
|
|
14
14
|
|
|
15
15
|
|
|
16
16
|
|
|
17
|
-
```
|
|
18
|
-
|
|
19
|
-
エラーメッセージ
|
|
20
|
-
|
|
21
|
-
は、ないがｃｓｖ出力後最終行にカンマが残る
|
|
22
|
-
|
|
23
|
-
### 該当のソースコード
|
|
24
|
-
|
|
25
|
-
Sheets("mmm")
|
|
17
|
+
```Sheets("mmm")
|
|
26
18
|
|
|
27
19
|
c = "mmm"
|
|
28
20
|
|
|
@@ -43,20 +35,6 @@
|
|
|
43
35
|
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
|
|
44
36
|
|
|
45
37
|
:=False, Transpose:=False
|
|
46
|
-
|
|
47
|
-
Range("A:A").Delete
|
|
48
|
-
|
|
49
|
-
Dim cnt As Object
|
|
50
|
-
|
|
51
|
-
For Each cnt In ActiveSheet.Shapes
|
|
52
|
-
|
|
53
|
-
If cnt.Name <> "個人" And cnt.Name <> "削除" then
|
|
54
|
-
|
|
55
|
-
ActiveSheet.Shapes(cnt.Name).Delete
|
|
56
|
-
|
|
57
|
-
End If
|
|
58
|
-
|
|
59
|
-
Next
|
|
60
38
|
|
|
61
39
|
|
|
62
40
|
|
|
@@ -86,13 +64,19 @@
|
|
|
86
64
|
|
|
87
65
|
|
|
88
66
|
|
|
67
|
+
コード
|
|
68
|
+
|
|
69
|
+
```
|
|
70
|
+
|
|
71
|
+
エラーメッセージ
|
|
72
|
+
|
|
89
|
-
|
|
73
|
+
は、ないがｃｓｖ出力後最終行にカンマが残る
|
|
90
74
|
|
|
91
75
|
|
|
92
76
|
|
|
93
77
|
値がない場合は削除したいのですが、ｃｓｖ出力後 ,,,が最後に3列ほど残ります。
|
|
94
78
|
|
|
95
|
-
|
|
79
|
+
画像はCSVの編集でメモの画像です。数字の後のカンマ（,,,,,,,,,)を消したいです。
|
|
96
80
|
|
|
97
81
|
### 補足情報（FW/ツールのバージョンなど）
|
|
98
82
|
|