回答編集履歴
1
修正
    
        answer	
    CHANGED
    
    | 
         @@ -1,5 +1,4 @@ 
     | 
|
| 
       1 
     | 
    
         
            -
             
     | 
| 
      
 1 
     | 
    
         
            +
            直書きなのでエラーがあるかもしれません。
         
     | 
| 
       2 
     | 
    
         
            -
             
     | 
| 
       3 
2 
     | 
    
         
             
            ```VBA
         
     | 
| 
       4 
3 
     | 
    
         
             
            Dim i As Long
         
     | 
| 
       5 
4 
     | 
    
         
             
            Dim n As String
         
     | 
| 
         @@ -7,6 +6,6 @@ 
     | 
|
| 
       7 
6 
     | 
    
         
             
            For i = 1 To tableSheet.Cells(r, テーブル名シート_NULL付与数列).Text
         
     | 
| 
       8 
7 
     | 
    
         
             
                n = n & ",NULL"
         
     | 
| 
       9 
8 
     | 
    
         
             
            Next i
         
     | 
| 
       10 
     | 
    
         
            -
            n = "(" &  
     | 
| 
      
 9 
     | 
    
         
            +
            n = "(" & n & ")"
         
     | 
| 
       11 
10 
     | 
    
         
             
            Debug.Print n  
         
     | 
| 
       12 
11 
     | 
    
         
             
            ```
         
     |