Option Base 1
Sub 配列()

  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 20
      
    B(i, 2) = "あ" & A(i, 2) & "あ"
    
    'MsgBox B(i, 2)

  Next
  
  Range("H1:L10000") = B

End Sub


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2018-01-03 (水) 21:45:50 (704d)