通勤認定エクセルツール対応12 表示しない対応

src/sh/tuk/module/Common_Button.bas

@@ -150,6 +150,9 @@ Private Sub DO_CSV_Import(ws As Excel.Worksheet)
         For j = 0 To expectedColumnCount - 1
             ws.Cells(writeRow, ws.Range(colLetters(j) & "1").Column).Value = CleanCSVField(CStr(csvData(i, j + 1)))
         Next j
+        If cfg.Exists("DisplayCol") Then
+            Call BuildDisplayDropdown(ws, writeRow)
+        End If
         writeRow = writeRow + 1
     Next i