質問編集履歴
2
エラーの出る部分を明示
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -100,6 +100,8 @@
|
|
|
100
100
|
|
|
101
101
|
|
|
102
102
|
|
|
103
|
+
|
|
104
|
+
|
|
103
105
|
```VBA
|
|
104
106
|
|
|
105
107
|
Option Explicit
|
|
@@ -196,6 +198,26 @@
|
|
|
196
198
|
|
|
197
199
|
|
|
198
200
|
|
|
201
|
+
上記のうち、この部分だと思います。ここを外すとエラーメッセージは出ません。
|
|
202
|
+
|
|
203
|
+
```VBA
|
|
204
|
+
|
|
205
|
+
|
|
206
|
+
|
|
207
|
+
'------データを追加した範囲のA列にブック名を書き込む------------
|
|
208
|
+
|
|
209
|
+
' wsResult.Cells(LastRow + 1, 1).Value = bkName 'エラーは出ないが、空白セルができる
|
|
210
|
+
|
|
211
|
+
Dim LastRow2 As Long
|
|
212
|
+
|
|
213
|
+
LastRow2 = wsResult.Cells(Rows.Count, 2).End(xlUp).row 'データの複写先のシートの最終行を再び取得して
|
|
214
|
+
|
|
215
|
+
wsResult.Range(Cells(LastRow + 1, 1), Cells(LastRow2, 1)).Value = bkName
|
|
216
|
+
|
|
217
|
+
|
|
218
|
+
|
|
219
|
+
```
|
|
220
|
+
|
|
199
221
|
### 試したこと
|
|
200
222
|
|
|
201
223
|
1つのセルに記入できることを確認
|
1
タイトルが間違っておりました
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
|
|
1
|
+
アプリケーション定義またはオブジェクト定義のエラー 範囲指定の間違い？ ブック名の処理 重複を防ぐ
|
test
CHANGED
|
File without changes
|