“Excel Swap Stragner Style между R1C1 и A1” Ответ

Excel Swap Stragner Style между R1C1 и A1

 Sub ChangeCellRef()
 If Application.ReferenceStyle = xlA1 Then
 Application.ReferenceStyle = xlR1C1
 Else
 Application.ReferenceStyle = xlA1
 End If
 End Sub