ExcelVBA/文字列に付与 の履歴(No.1)

• 履歴一覧
• 差分 を表示
• 現在との差分 を表示
• ソース を表示
• ExcelVBA/文字列に付与 へ行く。
  • 1 (2010-09-22 (水) 12:41:55)
  • 2 (2010-09-23 (木) 09:10:45)

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