タイプの不一致エラーが発生しないように、次のコードを取得する方法を知る必要があります。コメントアウトされた最後の行は機能しますが、Range("B2:B2000") を f に置き換えると、型の不一致エラーが発生します。代わりに最後の行を使用していない理由は、列 B に新しい列を挿入すると、列 B が列 C になるためです。それを機能させるために f に追加する必要があるものは他にありますか?
f = Application.WorksheetFunction.Match("PCR No.", Range("A1:AZ1"), 0) ActiveWorkbook.Worksheets("3.PMO 内部ビュー").Sort.SortFields.Add Key:=Cells(1, f)
ActiveWorkbook.Worksheets("3. PMO Internal View").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("3. PMO Internal View").Sort.SortFields.Add Key:= _
f, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
'Range("B2:B2000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal