teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

2

エラーの出る部分を明示

2019/01/28 09:28

投稿

SnowMonkey
SnowMonkey

スコア53

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

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

2019/01/28 09:28

投稿

SnowMonkey
SnowMonkey

スコア53

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