回答編集履歴

1

コードの間違い修正

2022/06/22 08:02

投稿

hatena19
hatena19

スコア33761

test CHANGED
@@ -7,7 +7,7 @@
7
7
  他のRangeも同様に。Sheets("XXXXXX") が繰り返されるのが冗長と感じるなら、With を使うか変数にするといいでしょう。
8
8
 
9
9
  ```vba
10
- Dim ws1 As WorkSheet, ws2 AS As WorkSheet
10
+ Dim ws1 As WorkSheet, ws2 As WorkSheet
11
11
  Set ws1 = Sheets("情報付与後")
12
12
  Set ws2 = Sheets("一覧表")
13
13