[[FrontPage]]

 Option Base 1
 Sub rei70()
 
   Dim A As Variant
   Dim B(100, 5) As String
   
   'データが存在する領域を選択します
   
   Selection.CurrentRegion.Select
   
   '選択された範囲を取得します
   
   Select_Range = ActiveWindow.RangeSelection.Address
 
   A = Range(Select_Range).Value
   
   For i = 1 To 25
       
     B(i, 2) = "あ" & A(i, 2) & "あ"
     
     'MsgBox B(i, 2)
 
   Next
   
   Range("H1:L10000") = A
 
 End Sub


トップ   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS