Вау! Это звучит как действительно уродливый дизайн. Хорошо, я предполагаю, что, по крайней мере, НЕКОТОРЫЕ из имен полей совпадают, в противном случае, вы на самом деле ничего здесь не делаете.
До.
После.
![enter image description here](https://i.stack.imgur.com/APhtP.png)
Запустите этот код VBA в Excel, чтобы выровнять имена полей, как показано выше.
Sub CompareRowDifferences1()
Dim sht As Worksheet
Dim i, LastColumn As Long
Set sht = ThisWorkbook.Worksheets("Transposed Fields")
LastColumn = sht.Cells.SpecialCells(xlLastCell).Column
With sht
For i = 1 To LastColumn
If StrComp(.Cells(1, i), .Cells(2, i), vbBinaryCompare) <> 0 Then
.Cells(2, i).Insert Shift:=xlToRight
.Cells(2, i).Value2 = "NULL AS " & .Cells(1, i).Value2
End If
Next i
End With
End Sub