MD化ロジックを修正

機能仕様書作成/Module3.bas

@@ -97,13 +97,16 @@ Sub ExportMarkdown_Complete()
                 colLetter = items(key)(0)
                 cond = items(key)(1)
 
+                Dim cellValue As String
+
                 If cond = "種別(固定)" Then
                     categoryFixed = dataWs.Range(colLetter).Value
+                ElseIf cond = "種別(表)" Then
+                    cellValue = dataWs.Range(colLetter).Value
                 Else
                     Dim colNum As Long
                     colNum = Columns(colLetter).Column
 
-                    Dim cellValue As String
                     cellValue = dataWs.Cells(r, colNum).Value
                     cellValue = Replace(cellValue, vbCrLf, vbLf)
                     cellValue = Replace(cellValue, Chr(13), vbLf)