diff --git a/components/fpspreadsheet/fpscsv.pas b/components/fpspreadsheet/fpscsv.pas
index 2980c5a66..c338ec5c0 100644
--- a/components/fpspreadsheet/fpscsv.pas
+++ b/components/fpspreadsheet/fpscsv.pas
@@ -291,7 +291,7 @@ procedure TsCSVWriter.WriteBlank(AStream: TStream; const ARow, ACol: Cardinal;
 begin
   Unused(AStream);
   Unused(ARow, ACol, ACell);
-  // nothing to do
+  FCSVBuilder.AppendCell('');
 end;
 
 { Write boolean cell to stream formatted as string }