回答編集履歴

1

記載ミス

2021/01/13 03:14

投稿

radames1000
radames1000

スコア1925

test CHANGED
@@ -10,7 +10,7 @@
10
10
 
11
11
  ```vba
12
12
 
13
- Cells(Type:=xlCellTypeBlanks).Locked = False
13
+ Cells.SpecialCells(Type:=xlCellTypeBlanks).Locked = False
14
14
 
15
15
  ```
16
16
 
@@ -18,6 +18,6 @@
18
18
 
19
19
  ```vba
20
20
 
21
- Debug.Print Cells(Type:=xlCellTypeBlanks).Address
21
+ Debug.Print ActiveSheet.UsedRange.Address
22
22
 
23
23
  ```