VBA Excel转换为文本文件删除逗号

Question

我正在将excel输出转换为.txt和.dat文件格式，但每当我将其转换为.txt文件时，剩余空格或空列会在转换后的文本文件中显示大量逗号。

  

= IF（A13 =＆＃34;＆＃34;＆＃34;＆＃34 ;,   IF（LEFT（A13,1）=＆＃34; T＆＃34;＆＃34;＆＃34 ;,   IF（＆＃39; JPMorgan模板新＆＃39;！A14＆lt;＆gt;＆＃34;＆＃34;，＆＃39; JPMorgan模板新＆＃39;！A14＆amp;＆＃39; JPMorgan模板新＆＃39;！ B14＆amp;＆＃39; JPMorgan模板新＆＃39;！C14＆amp;＆＃39; JPMorgan模板新＆＃39;！D14＆amp;＆＃39; JPMorgan模板新＆＃39;！E14＆amp;＆＃39; JPMorgan模板新＆＃39; ;！F14＆amp;＆＃39; JPMorgan模板New＆＃39;！G14＆amp;＆＃34;＆＃34;＆amp;＆＃39; JPMorgan Template New＆＃39;！H14＆amp;＆＃34;＆＃34;＆amp; ＆＃39; JPMorgan模板新＆＃39;！I14＆amp;＆＃39; JPMorgan模板新＆＃39;！J14＆amp;＆＃34;＆＃34;＆amp;＆＃39; JPMorgan模板新＆＃39;！K14＆amp; && ＃34;＆＃34;＆amp;＆＃39; JPMorgan模板新＆＃39;！L14＆amp;＆＃39; JPMorgan模板新＆＃39;！M14＆amp;＆＃34;＆＃34;＆amp;＆＃39;摩根大通模板New＆＃39;！N14＆amp;＆＃39; JPMorgan模板New＆＃39;！O14＆amp;＆＃39; JPMorgan模板New＆＃39;！P14＆amp;＆＃34;＆＃34;＆amp;＆＃39; JPMorgan模板新的＆＃39;！Q14＆amp;＆＃39; JPMorgan模板新＆＃39;！R14＆amp;＆＃39; JPMorgan模板新＆＃39;！S14，＆＃34; T＆＃34;＆amp; MIN（行（A14：A15） ））+ ROWS（A14）-3＆amp;＆＃34;＆＃34;＆amp; S UM（＆＃39; JPMorgan Template New＆＃39;！H：H））））

b <- a %>%
    group_by(Name) %>%
    summarise(Total_Sum = sum(Sum))

c <- a %>%
    count(Name)

df <- left_join(b, c)

请参阅下面的图片。

Answer 1

试试这个

https://stackoverflow.com/a/30658557/3625350

Excel trailing comma bug in csv files

我认为可能会发生这种情况，因为右边的列是空白但不是null（水平滚动条必须非常小）。选择A列右侧的所有列，然后按Ctrl和 - （减号），这将删除数据。如果这不起作用尝试使用我的答案中的第一个链接修剪和删除分隔符

编辑：您发布的公式不完整，但似乎很多单元格都是空白的，因为在您的if条件中有“”作为输出。当空白单元格被转换为csv时，它被认为是一个值，因为每个空单元格都用逗号分隔。而且我假设你只是简单地追加到最后。我在顶部建议的步骤应该解决这个问题

Answer 2

我首先将数据拆分为固定宽度，然后将文件另存为csv。我猜你不想让Juan dela Cruz分成不同的字符串。

以下示例为具有三列的文本拆分具有固定宽度的文本。

  

Selection.TextToColumns目的地：=范围（myRange），   DataType：= xlFixedWidth，_           FieldInfo：= Array（Array（0,1），Array（3,1），Array（7,1）），TrailingMinusNumbers：= _           真

另一种解决方案是在创建公式中添加已定义的分隔符，并在csv导出中使用它。