回答編集履歴
1
追記
    
        answer	
    CHANGED
    
    | 
         @@ -1,4 +1,13 @@ 
     | 
|
| 
      
 1 
     | 
    
         
            +
            以下のように最初にReDimしておくと動くと思います。
         
     | 
| 
      
 2 
     | 
    
         
            +
             
     | 
| 
       1 
3 
     | 
    
         
             
            ```VBA
         
     | 
| 
      
 4 
     | 
    
         
            +
            '(略)
         
     | 
| 
      
 5 
     | 
    
         
            +
             
     | 
| 
      
 6 
     | 
    
         
            +
            i = 0
         
     | 
| 
      
 7 
     | 
    
         
            +
            Row = 11
         
     | 
| 
       2 
8 
     | 
    
         
             
            cate = "初期値"
         
     | 
| 
       3 
     | 
    
         
            -
            ReDim cateary( 
     | 
| 
      
 9 
     | 
    
         
            +
            ReDim cateary(i)
         
     | 
| 
      
 10 
     | 
    
         
            +
             
     | 
| 
      
 11 
     | 
    
         
            +
            '(略)
         
     | 
| 
      
 12 
     | 
    
         
            +
             
     | 
| 
       4 
13 
     | 
    
         
             
            ```
         
     |