質問編集履歴
2
追記
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
VBAの
|
|
1
|
+
VBAの行を削除する時にデータがずれてしまいます。
|
test
CHANGED
|
@@ -4,9 +4,13 @@
|
|
|
4
4
|
|
|
5
5
|
|
|
6
6
|
|
|
7
|
-
|
|
7
|
+
ステップ実行をしてみたところ、
|
|
8
8
|
|
|
9
|
+
ws.Cells(firstLine + 1).Rows.Delete
|
|
10
|
+
|
|
11
|
+
が最初に実行されたときJの列のデータが１行上にずれていることは分かったのですがなぜその列だけがずれるのかが分かりません。
|
|
12
|
+
|
|
9
|
-
ご教示よろしくお願い致します。
|
|
13
|
+
解決方法、ご教示よろしくお願い致します。
|
|
10
14
|
|
|
11
15
|
|
|
12
16
|
|
1
誤記の修正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -11,6 +11,8 @@
|
|
|
11
11
|
|
|
12
12
|
|
|
13
13
|
|
|
14
|
+
|
|
15
|
+
```VBA
|
|
14
16
|
|
|
15
17
|
Dim ws As Worksheet
|
|
16
18
|
|
|
@@ -28,7 +30,13 @@
|
|
|
28
30
|
|
|
29
31
|
Dim varFileName As Variant
|
|
30
32
|
|
|
33
|
+
'↓補足に書きました誤記修正しました
|
|
34
|
+
|
|
35
|
+
Dim ws2 As WorksheetSet
|
|
36
|
+
|
|
31
|
-
|
|
37
|
+
Set ws2 = ThisWorkbook.Worksheets(1)
|
|
38
|
+
|
|
39
|
+
'↑補足に書きました誤記修正しました
|
|
32
40
|
|
|
33
41
|
varFileName = dCsv
|
|
34
42
|
|
|
@@ -98,6 +106,8 @@
|
|
|
98
106
|
|
|
99
107
|
Application.ScreenUpdating = True
|
|
100
108
|
|
|
109
|
+
```
|
|
110
|
+
|
|
101
111
|
|
|
102
112
|
|
|
103
113
|
|