回答編集履歴
1
コメント指摘内容の対策(A列挿入への対策)
answer
CHANGED
|
@@ -31,7 +31,8 @@
|
|
|
31
31
|
Dim columnACells As Excel.Range
|
|
32
32
|
Set columnACells = Target.Application.Intersect( _
|
|
33
33
|
Target, _
|
|
34
|
-
Target.Worksheet.Range("A1").EntireColumn _
|
|
34
|
+
Target.Worksheet.Range("A1").EntireColumn, _
|
|
35
|
+
Target.Worksheet.UsedRange _
|
|
35
36
|
)
|
|
36
37
|
If columnACells Is Nothing Then
|
|
37
38
|
Exit Sub
|