回答編集履歴

1

コード修正

2021/12/31 13:19

投稿

hatena19
hatena19

スコア33761

test CHANGED
@@ -30,7 +30,7 @@
30
30
 
31
31
  End If
32
32
 
33
- Dim c As Rnage
33
+ Dim c As Range
34
34
 
35
35
  For Each r In Intersect(Selection, Range("N:N"))
36
36