質問編集履歴
2
エラーの出る部分を明示
title
CHANGED
File without changes
|
body
CHANGED
@@ -49,6 +49,7 @@
|
|
49
49
|
|
50
50
|
### 該当のソースコード
|
51
51
|
|
52
|
+
|
52
53
|
```VBA
|
53
54
|
Option Explicit
|
54
55
|
|
@@ -97,6 +98,16 @@
|
|
97
98
|
|
98
99
|
```
|
99
100
|
|
101
|
+
上記のうち、この部分だと思います。ここを外すとエラーメッセージは出ません。
|
102
|
+
```VBA
|
103
|
+
|
104
|
+
'------データを追加した範囲のA列にブック名を書き込む------------
|
105
|
+
' wsResult.Cells(LastRow + 1, 1).Value = bkName 'エラーは出ないが、空白セルができる
|
106
|
+
Dim LastRow2 As Long
|
107
|
+
LastRow2 = wsResult.Cells(Rows.Count, 2).End(xlUp).row 'データの複写先のシートの最終行を再び取得して
|
108
|
+
wsResult.Range(Cells(LastRow + 1, 1), Cells(LastRow2, 1)).Value = bkName
|
109
|
+
|
110
|
+
```
|
100
111
|
### 試したこと
|
101
112
|
1つのセルに記入できることを確認
|
102
113
|
→Rangeの使い方に問題がありそうということで、
|
1
タイトルが間違っておりました
title
CHANGED
@@ -1,1 +1,1 @@
|
|
1
|
-
|
1
|
+
アプリケーション定義またはオブジェクト定義のエラー 範囲指定の間違い? ブック名の処理 重複を防ぐ
|
body
CHANGED
File without changes
|