1

我有一个包含大约 60,000 条记录的数据集。拖欠日期字段就在处理货币值的字段之后，有时用户会在拖欠日期字段中意外输入货币值。此外，他们有时将日期输入为字符串（2011 年 8 月 2 日）或拖欠天数（135 或 135 天）。最常见的输入方法是 mm/dd/yy 格式 (08/02/11)。

可悲的是，这个系统的程序员拒绝花时间为这个字段创建验证，所以我必须在获得数据后尽可能多地执行它。通常，我会用一些简单的公式来处理这个问题，但是，用户输入数据的方式有 19 种不同的方式，我需要能够快速处理每一种方式。将列加载到数组中似乎是最好的选择。

我的想法是将列加载到一个数组中，循环遍历它，处理所有条目选项（或删除完全混乱的选项），然后将其写回工作表。我知道数据类型是下面数组的第一个问题，但我之前在 Excel VB 中只使用过一次数组，我不太确定我做错了什么。第三行代码是第一个问题。谢谢你的帮助。

根据 BRTTDJ 的评论的工作代码

'Perform housekeeping on delinquency date
Dim delinquency()
delinquency = Application.Transpose(Range("AH1:AH" & importwsRowCount))
For i = LBound(delinquency) To UBound(delinquency)
    If InStr(delinquency(i), ".") Then
        delinquency(i) = Empty
        Debug.Print "Emptied an array element at row " & i + 1
    End If
    'Additional string or numeric operations here to reformat bad entries.
Next i
Set delRange = Range("AJ1:AJ" & importwsRowCount)
iWS.names.Add Name:="dRange", RefersTo:=delRange
delinquency = Application.Transpose(delinquency) 'Transpose rows and columns
Range("dRange").Value = delinquency 'Write array to worksheet

需要重新格式化的不良条目示例
9 月。25, 20（没有年份，没有年份！删除。）
SEPT（没有年份，没用，删除。）
N/A（垃圾！删除。）
LONG TIME AG（傻瓜认为这是个好主意，删除。）
6 月 30 日, 200（显然该字段只能保存 12 个字符，删除。）
CHARGED OFF（无用，删除。）
94 DAYS（取空格前面的所有字符并从包含订单日期的其他字段中减去以获得拖欠日期。）
94 DPD（DPD in某人聪明的头脑代表我相信过期的日子。同上。）
2008-7-15 12（不确定额外的数字是多少，取空格前的所有字符并转换。）
无效（删除。）
空白（什么都不做。）
12282009（使用嵌套的 LEFT 和 RIGHT 和 CONCATENATE 与 / 之间。）
9202011（添加前导零，然后与上面相同。）
92410（添加前导零，这将转换为 09/ 24/10)
41261（自 1899 年 12 月 31 日以来的天数，这将转换为 12/08/12）
1023（自拖欠的天数，从 ORDER DATE 中减去以获得拖欠日期。）
452（同上。）
12（同同上。）
1432.84（货币价值，低智商走狗误入。删除。）

更新的代码，包括删除错误条目（正在进行中）

'Perform housekeeping on delinquency date
Columns("AH:AH").Select
Selection.NumberFormat = "0"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
    True, Transpose:=False
Dim delinquency()
ReDim del(1 To importwsRowCount, 1 To 1)
del = Range("AH1:AH" & importwsRowCount).Value
For i = LBound(del, 1) To UBound(del, 1)
    delChars = Len(del(i, 1)) 'Determine length of entry
    If IsNumeric(del(i, 1)) = True Then 'Determine datatype of entry
        delType = "Numeric"
    Else
        delType = "String"
    End If
    If InStr(del(i, 1), ".") Then 'Removes monetary entries like 142.84
        del(i, 1) = Empty
    ElseIf InStr(del(i, 1), "*") Then 'Removes ***INVALID*** entries
        del(i, 1) = Empty
    ElseIf delChars = 12 Then 'Removes all entries that extend beyond the 12 character limit of the field and get cut off
        del(i, 1) = Empty
    ElseIf delType = "String" And Len(del(i, 1).Value) < 10 And InStrRev(del(i, 1).Value, " ") Then 'Takes the number from entries like 2194 Days or 23 DPD
        del(i, 1).Value = Left(del(i, 1).Value, Len(del(i, 1).Value) - InStrRev(del(i, 1).Value, " "))
        If IsNumeric(del(i, 1)) = False Then 'If the characters to the left of the space are not numbers, discard
            del(i, 1).Value = Empty
        Else
            del(i, 1).Value = Format((CLng(Range("E" & i + 1).Value) - Abs(del(i, 1).Value)), "mm/dd/yy") 'Pull order date and subtract days from it for delinquency date
        End If
    ElseIf delType = "Numeric" And Len(del(i, 1)) = 5 Then
        If del(i, 1).Value > CLng(Date) Then 'Value is greater than todays date, improperly formated date that needs character manipulation and / added
            del(i, 1).Value = Format(del(i, 1).Value, "000000") 'Add leading zero
            del(i, 1).Value = DateSerial(Right(del(i, 1).Value, 2), Left(del(i, 1).Value, 2), Right(Left(del(i, 1).Value, 2), 4)) 'Grab year, then month, then day for serialize
        Else
            del(i, 1).Value = Format(del(i, 1).Value, "mm/dd/yy") 'Properly formated date that just needs format conversion
        End If
    ElseIf delType = "Numeric" And (delChars = 7 Or delChars = 8) Then
        If delChars = 7 Then
            del(i, 1).Value = Format(del(i, 1).Value, "00000000") 'Add leading zero
        End If
        del(i, 1).Value = DateSerial(Right(del(i, 1).Value, 4), Left(del(i, 1).Value, 2), Right(Left(del(i, 1).Value, 2), 6)) 'Grab year, then month, then day for serialize
    ElseIf delType = "Numeric" And delChars < 5 Then
        del(i, 1).Value = Format((CLng(Range("E" & i + 1).Value) - Abs(del(i, 1).Value)), "mm/dd/yy")
    End If
Next i
Set dRange = Range("AJ1:AJ" & importwsRowCount)
iWS.names.Add Name:="dRange", RefersTo:=delRange
delinquency = Application.Transpose(delinquency) 'Transpose rows and columns
Range("dRange").Value = delinquency 'Write array to worksheet
4

2 回答 2

1

线的原因

delinquency = Application.Transpose(["AH1:AH" & importwsRowCount])

错误是["AH1:AH" & importwsRowCount]无效的（它返回一个字符串，而不是一个范围）。

[...]是Evaluate方法的捷径。要让它返回一个范围引用，您需要执行类似[AH1:AH60000]ie 的操作，而无需"". 最好以常规方式引用范围

delinquency = Application.Transpose(Range("AH1:AH" & importwsRowCount]))

Transpose也就是说，如果您声明delinquency为二维数组，则实际上不需要使用。

ReDim delinquency(1 To importwsRowCount, 1 To 1)

所以，你的代码变成

Dim delinquency() As Variant
ReDim delinquency(1 To importwsRowCount, 1 To 1)
delinquency = Range("AH1:AH" & importwsRowCount).Value
For i = LBound(delinquency, 1) To UBound(delinquency, 1)
    If InStr(delinquency(i, 1), ".") Then
        delinquency(i, 1) = Empty
    End If
    'MANY ADDITIONAL OPERATIONS HERE
Next i
Set delRange = Range("AJ1:AJ" & importwsRowCount)
iWS.Names.Add Name:="dRange", RefersTo:=delRange
Range("dRange").Value = delinquency 'Write array to worksheet

笔记：

  1. Range("AH1:AH" & importwsRowCount)指的是上的一个范围ActiveSheet
  2. 为了稳健，您应该在工作表引用中明确说明。所以使用类似的东西

.

Dim wsData as Worksheet
Set wsData = ActiveSheet ' or whatever sheet you want
delinquency = wsData.Range("AH1:AH" & importwsRowCount).Value
Set delRange = wsData.Range("AJ1:AJ" & importwsRowCount) 'assuming you want to refer to the same sheet
iWS.Names.Add Name:="dRange", RefersTo:=delRange  ' not sure what this is for, but be sure your Name referes tot he right sheet
' Might be better to use this, if you need to use the Name at all
iWS.Names("dRange").RefersToRange = delinquency
于 2012-11-06T06:00:46.787 回答
1

鉴于您接受了 Chris 的后期帖子，该帖子部分涵盖了与我之前评论相同的基础，我已更新此帖子作为这些更改的答案（我之前的评论中标记的第一个）

  1. Redim在使用它来捕获您的范围之前，不需要变体数组。这是一条多余的行，因为变量数组会自动适应输入的范围。
    ReDim delinquency(1 To importwsRowCount, 1 To 1)
  2. 稍作调整，但在使用范围时使用Value2优于默认值Value

然后，您可以选择设置定义为rows x columns或columns x rows的变体数组。

通常采用第一种方法，因为仅在以下任一情况下才需要转换

  1. 您正在使用单列或单行，并且想要使用一维数组（根据您的问题 - 所以Transpose仍然需要 a ）
  2. 稍后ReDim将用于调整数组行的大小。使用时Redim Preserve，只有最后一个维度可以调整大小。因此，如果您以后想要减少与数组中的行相关的数据量，则需要设置数组Transpose以生成列 x 行。

我关于变体数组的文章位于 EE 付费墙之外。你能再试试看吗？

标准用法 

Sub RowByColumn()
Dim delinquency() 
delinquency = Range("AH1:AH" & importwsRowCount).Value2

转置用法

Sub ColumnByRow()
'creates a 1D array when working on a single column or row. creates a *column X row* array on a 2D array
Dim delinquency() 
delinquency = Application.Transpose(Range("AH1:AH" & importwsRowCount).Value2)
于 2012-11-06T22:39:20.063 回答