【求助】如何读取到单元格里的单引号？

getset

在读取一个Excel表格里的内容，写入到另一个表格里的时候，正常我们的做法是用Formula将公式还原，但最近我遇到一个问题

比如单元格里有这么一个内容【'==123@123】，我们读取单元格的Formula属性，Value属性，Value2属性，甚至于FormulaArray属性，都只能得到【==123@123】，这个时间，我们写入新的表格里，range[单元格].fromula="==123@123",就会报错（公式或值错误）。
哪位大量遇到过类似问题，请指点一下！

1121228509

Sub 参考()
Dim z
If Left(Range("A1").Value, 1) = "=" Then
    z = "'" & Range("A1").Value
Else
    z = Range("A1").Value
End If
Range("B1") = z
End Sub

getset

1121228509 发表于 2023-5-27 22:51
Sub 参考()
Dim z
If Left(Range("A1").Value, 1) = "=" Then

1、我需要还原原表，那一定是需要将formula属性来还原。
2、因为数据量大，我需要将表格的所有formula写入一个arr，再整体写入目标表，这样即便是遍历arr来判断，也需要大量的时间，用If是可以重写内容，但遍历条件太占内存，效果很不好。

总之，谢谢回复

1121228509

附件发上来看看，应该不难。

getset

1121228509 发表于 2023-5-28 18:57
附件发上来看看，应该不难。

感谢关注，后来还是将数据写到数组里，遍历了一遍，好在遍历数组的速度还可以：
for (int x = 1; x < arr1.GetLength(0)+1; x++)
                {
                    for (int y = 1; y < arr1.GetLength(1)+1; y++)
                    {                        
                        if (Regex.IsMatch(arr1[x, y].ToString(), @"^=="))
                        {
                            arr1[x, y] = "'" + arr1[x, y].ToString();
                        }
                    }
                }

getset

1121228509 发表于 2023-5-27 22:51
Sub 参考()
Dim z
If Left(Range("A1").Value, 1) = "=" Then

基本上也是用了你的方法，只是写法不太一样（C#），有好的方法还请多指正
for (int x = 1; x < arr1.GetLength(0)+1; x++)
                {
                    for (int y = 1; y < arr1.GetLength(1)+1; y++)
                    {                        
                        if (Regex.IsMatch(arr1[x, y].ToString(), @"^=="))
                        {
                            arr1[x, y] = "'" + arr1[x, y].ToString();
                        }
                    }
                }