如何将一系列过滤单元格中的日期文本复制并粘贴到 CSV 中？

Question

我正在尝试将一系列过滤后的日期格式单元格复制到 CSV 文件中。我想要日期的文本，而不是日期代码。

这就是我目前所拥有的。它获取日期代码，但我想要文本。

.Range.Columns(EmployeeEffectiveDateCol).Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy
    TemplateSheet.Range("G2").PasteSpecial (xlPasteValues)

Answer 1

您可以将 .PasteSpecial (xlPasteValues) 更改为 .PasteSpecial (xlPasteAll)

它不仅会粘贴值，还会复制单元格格式（在本例中为日期）。

希望对您有所帮助！

Answer 2

好的，我认为这个问题没有答案！哈哈。我找不到一种方法来获取一系列已过滤单元格的文本，但我想出了一个解决方法。

CSV 文件在我填充时在 Excel 中打开。此时可以对单元格进行格式化，但关闭文件时格式化会丢失。所以，我需要在保存和关闭之前重置单元格。为此，我找到了一个循环，我可以在 copy/pasting 完成后立即调用它：

TemplateSheet.Range("G2:G500").NumberFormat = "dd/mm/yyyy"
For Each Cell In TemplateSheet.Range("G2:G500")
  Cell.Value = Cell.Text
Next Cell

这当然需要代码顶部的 Dim Cell As Range。这不是我希望的那样优雅的解决方案，但我只需要现在就完成工作！哈哈。它的工作速度也相当快。

How do I Copy and Past date text from a range of filtered cells, into a CSV?