質問編集履歴

2

エラーの出る部分を明示

2019/01/28 09:28

投稿

SnowMonkey
SnowMonkey

score53

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

タイトルが間違っておりました

2019/01/28 09:28

投稿

SnowMonkey
SnowMonkey

score53

test CHANGED
@@ -1 +1 @@
1
- トメーション エラー対処 フォルダ内の全てのエクセルブックを1つのブックにまとめたい
1
+ アプリケーション定義またはオブジェクト定義のエラー 範囲指定間違い? ブック名の処理 重複防ぐ
test CHANGED
File without changes