Question

我在工作中使用的一种工具可以选择在Excel中运行时记录数据。不幸的是，它吐出的数据原始形式是不可读的。

我发现如果我复制出现在公式栏中的字符串（而不是仅选择单元格本身并复制）并将其粘贴到另一个单元格中，它实际上会扩展数据以使其可读。但是，我能够找到的所有复制/粘贴宏只是将单元格复制到另一个单元格中，在这种情况下会保留初始格式，这会破坏目的。

我需要的是一个宏，它将复制字符串而不是单元格并将其粘贴到另一个单元格中。自从我完成任何宏编程（或任何编程实际上）已经过去了大约8年，所以我对它非常生疏，但我已经掌握了足够的知识，我应该能够很好地理解它。

提前感谢您的帮助。

Answer 1

我不知道你不可读的数据。看看以下代码是否有效？根据您的表/数据更改代码

Sub text_Writing_through_Variable() 
    Dim text As String
    text = ActiveCell.FormulaR1C1 ' Make a String of data contain in active cell
    Range("a5").Value = text      'paste String in `A5`
End Sub

VBA将单元格数组数据复制为字符串并粘贴到新单元格中

1 个答案: