質問編集履歴
1
コードの変更
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -6,11 +6,7 @@
|
|
|
6
6
|
|
|
7
7
|
### 発生している問題・エラーメッセージ
|
|
8
8
|
|
|
9
|
-
```
|
|
10
|
-
エラーメッセージ
|
|
11
|
-
は、ないがｃｓｖ出力後最終行にカンマが残る
|
|
12
|
-
### 該当のソースコード
|
|
13
|
-
Sheets("mmm")
|
|
9
|
+
```Sheets("mmm")
|
|
14
10
|
c = "mmm"
|
|
15
11
|
d = Format(Now() , "yyyymmdd-hhmmss")
|
|
16
12
|
e = c & "_" & d & ".csv"
|
|
@@ -21,13 +17,6 @@
|
|
|
21
17
|
Selection.Copy
|
|
22
18
|
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
|
|
23
19
|
:=False, Transpose:=False
|
|
24
|
-
Range("A:A").Delete
|
|
25
|
-
Dim cnt As Object
|
|
26
|
-
For Each cnt In ActiveSheet.Shapes
|
|
27
|
-
If cnt.Name <> "個人" And cnt.Name <> "削除" then
|
|
28
|
-
ActiveSheet.Shapes(cnt.Name).Delete
|
|
29
|
-
End If
|
|
30
|
-
Next
|
|
31
20
|
|
|
32
21
|
Dim a As Long
|
|
33
22
|
For a = Cells(Rows.Count, 8).End(xlUp).Row To 2 Step -1
|
|
@@ -42,10 +31,13 @@
|
|
|
42
31
|
"ファイル名 : " & "ActiveWorkbook.Path" & "mmm.csv”
|
|
43
32
|
End sub
|
|
44
33
|
|
|
34
|
+
コード
|
|
35
|
+
```
|
|
36
|
+
エラーメッセージ
|
|
45
|
-
|
|
37
|
+
は、ないがｃｓｖ出力後最終行にカンマが残る
|
|
46
38
|
|
|
47
39
|
値がない場合は削除したいのですが、ｃｓｖ出力後 ,,,が最後に3列ほど残ります。
|
|
48
|
-
|
|
40
|
+
画像はCSVの編集でメモの画像です。数字の後のカンマ（,,,,,,,,,)を消したいです。
|
|
49
41
|
### 補足情報（FW/ツールのバージョンなど）
|
|
50
42
|
|
|
51
43
|
ここにより詳細な情報を記載してください。
|