Sub A1参照形式とR1C1参照形式の切り替え() With Application If .ReferenceStyle = xlA1 Then .ReferenceStyle = xlR1C1 Else .ReferenceStyle = xlA1 End If End With End Sub