文本数据读入到数组中后写回单元格(已解决)

Zamyi

Dim Arr, k%, i%
    Arr = [F1].CurrentRegion
    For k = 1 To UBound(Arr)
        For i = 1 To UBound(Arr, 2)
            Arr(k, i) = Application.IsText(Arr(k, i))
        Next
    Next
    [J1].Resize(k - 1, i - 1) = Arr

aroffice

从其他的一些途径得到了一个数组,数组中的内容不定有汉字\字母\符号\纯数字\文本数字等等,需要原样写入一个单元格中的时候,就不是一样的了,要么文本数字写入单元格不再是文本,要么全部数组都是文本的.比如 数组中 有两个数据 01和1 前一个是文本数字 写入单元格时还得写01,而后面的1可能是纯数字的1了,就得在单元格中写入纯数字的1

alzeng

Zamyi的意思应该是不用遍历单元格，直接从数组中做出判定：

1. 
   
2. Sub Ary()
   
3.     Dim Arr, k%, i%
   
4. 
   
5.     Arr = [F1].CurrentRegion
   
6.     For k = 1 To UBound(Arr)
   
7.         For i = 1 To UBound(Arr, 2)
   
8.             If Application.IsText(Arr(k, i)) Then Arr(k, i) = "'" & Arr(k, i)
   
9.         Next
   
10.     Next
    
11. 
    
12.     [J1].Resize(k - 1, i - 1) = Arr
    
13. End Sub
    

复制代码

aroffice

原来没有想到怎样去判断是纯数字还是文本数字这个关键
现在知道了Application.IsText 这个函数可以判断,其他的就知道了!

另外有个问题,这样直接在数组中加入'在写入单元格时有用么?

[ 本帖最后由 aroffice 于 2010-6-25 19:49 编辑 ]

aroffice

这是我用来提取重复值的加载宏
Private Sub tqcfz()
    Dim Cel As Range
    ThisWorkbook.Sheets(1).Columns(1).Clear
    Set d = CreateObject("Scripting.Dictionary")
    For Each Cel In Selection
        If Cel <> "" Then
            If Not d.exists(Cel.Value) Then
                d.Add Cel.Value, Cel.Value
            Else
                i = i + 1
                If Application.IsText(Cel.Value) Then
                    ThisWorkbook.Sheets(1).Cells(i, 1) = "'" & Cel.Value
                Else
                    ThisWorkbook.Sheets(1).Cells(i, 1) = Cel.Value
                End If
            End If
        End If
    Next
    ThisWorkbook.Sheets(1).Copy
    ThisWorkbook.Sheets(1).Columns(1).Clear
End Sub