VBA数组返回数字而不是字符串

Question

我创建了一个数组作为包含数字和文本的单元格范围。一列称为PolicyNumber。有值：

11/2007 
8/2006 
12/2005 
etc. 

如果我想将细胞从阵列复制回它返回不值11/2007，8/2006，12/2005等，但是它返回计算的结果的纸张

11/2007 = 0.00548 
8/2006 = 0.003988 
12/2005 = 0.00598 
etc. 

我试图

1. 格式化的值作为PolicyNumber之前创建的阵列文本;
2. 将PolicyNumber拆分到两个单元格上，然后放回;
3. 导出时，数组中使用的函数格式为cstr。

我希望能够理解这个问题。

Answer 1

Sub firstcheck() 

Dim X() 
dim ind as Worksheet, FC as Worksheet 
dim N as Double 

Set ind = Sheets("Input Data") 

Set FC - Sheets("First Check") 
N = Application.CountA(Ind.Range("G:G")) 

X = ind.Range("C2:T" & N).Value 'data 
.... 
FC.Range("B2:S" & N) = X 

End Sub 

柱：

Policynumber：

数据工程确定：

99-155547/003 
99-155690/003 
99-155837/003 
99-173341/003 
99-185326/003 

复制了一些数据不起作用：

2013/00176 
2012/08233 
2012/08016 
2012/08330 
2012/08749 
2012/01122 

Answer 2

假设policynumber合作lumn被格式化为文本，然后格式化文本输出为我输出：

Sub getit() 
    Dim var As Variant 
    var = Range("a1:A2") 
    Range("c1:c2").NumberFormat = "@" 
    Range("c1:c2") = var 
End Sub