14

我无法在此处获取此代码来获取单元格内容并存储为字符串。我得到一个双：
54.6666666667而不是N03:DM:（示例单元格内容）。

如果我使用Cstr(Sheet1.Cells(i, 5).Value)我仍然会得到相同的结果。

任何帮助，将不胜感激。

Option Explicit
Private Sub GetAddress()

Dim varAdd As String
Dim i As Integer

    For i = 2 To 327
        If varTag = Sheet1.Cells(i, 2).Value Then
           varAdd = Sheet1.Cells(i, 5).Value
           varAdd = Left(varAdd, 7)
           Sheet3.Cells(incR, 2).Value = varAdd
           Exit For
        End If   
    Next i

End Sub

工作表截图在此处输入图像描述

4

1 回答 1

39

使用Range("A1").Text代替.Value

发表评论编辑：
为什么？
因为.TextRange 对象的属性返回电子表格中字面上可见的内容，所以如果您显示单元格，i100l:25he*_92那么 <-Text将准确返回单元格中的内容，包括任何格式。and属性返回存储在引擎盖下
的单元格中 的内容，不包括格式。特别是对于日期类型，它将返回十进制表示。.Value.Value2.Value2

如果您想更深入地了解含义和性能，我刚刚发现this article这似乎是一个很好的指南

另一个编辑
在这里你去@Santosh
输入（手动）从DEFAULT（col A）到其他列的值
根本不格式化A
列将B列格式化为文本
将C列格式化为日期[dd/mm/yyyy]
格式化列现在将 D 作为百分比
不要格式化A列，格式化B为TEXT，C为日期，D为百分比
，
将此代码粘贴到模块中

Sub main()

    Dim ws As Worksheet, i&, j&
    Set ws = Sheets(1)
    For i = 3 To 7
        For j = 1 To 4
            Debug.Print _
                    "row " & i & vbTab & vbTab & _
                    Cells(i, j).Text & vbTab & _
                    Cells(i, j).Value & vbTab & _
                    Cells(i, j).Value2
        Next j
    Next i
End Sub

和Analyse输出！它真的很简单，我无能为力了:) 

            .TEXT              .VALUE             .VALUE2
row 3       hello             hello               hello
row 3       hello             hello               hello
row 3       hello             hello               hello
row 3       hello             hello               hello
row 4       1                 1                   1
row 4       1                 1                   1
row 4       01/01/1900        31/12/1899          1
row 4       1.00%             0.01                0.01
row 5       helo1$$           helo1$$             helo1$$
row 5       helo1$$           helo1$$             helo1$$
row 5       helo1$$           helo1$$             helo1$$
row 5       helo1$$           helo1$$             helo1$$
row 6       63                63                  63
row 6       =7*9              =7*9                =7*9
row 6       03/03/1900        03/03/1900          63
row 6       6300.00%          63                  63
row 7       29/05/2013        29/05/2013          41423
row 7       29/05/2013        29/05/2013          29/05/2013
row 7       29/05/2013        29/05/2013          41423
row 7       29/05/2013%       29/05/2013%         29/05/2013%
于 2013-05-29T17:58:02.320 回答