ExcelVBA/文字列に付与 の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• ExcelVBA/文字列に付与 へ行く。
• ExcelVBA/文字列に付与 の差分を削除

#navi(../)


 Option Base 1
 Sub rei70()
 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 25
   For i = 1 To 20
       
     B(i, 2) = "あ" & A(i, 2) & "あ"
     
     'MsgBox B(i, 2)
 
   Next
   
   Range("H1:L10000") = A
   Range("H1:L10000") = B
 
 End Sub


#navi(../)