'-------------------------------------
'   Jʒu@pϊ
'
'   pϊ͊ȒPɂł̂ŏȗ
'-------------------------------------
Sub 񖼂pŎ擾1sڂɕ\()
    
    Dim idx As Long
    
    For idx = 1 To 30
            Dim colstrSTA As String     'pϊJ
            colstrSTA = Replace(Cells(1, idx).Address(False, False), "1", "")
            Cells(1, idx) = colstrSTA
    Next idx
    
End Sub