2

我决定改变我的机智。我决定再试一次，但以一种新的方式。我做了一个周末的谷歌马拉松，发现我相信我的答案，

Option Explicit
Sub DataUpdate()
Dim rFind As Long, NR As Long, LR As Long, LC As Long
LR = Range("C" & Rows.Count).End(xlUp).Row
LC = Cells(2, Columns.Count).End(xlToLeft).Column
NR = LR + 1

On Error Resume Next
rFind = Range("A25:A" & LR).Find(Range("A1")).Row
On Error GoTo 0

    If rFind = 0 Then
        If MsgBox("Customer record not found, add to dataset?", vbYesNo + vbQuestion) = vbYes Then
            Range("A2", Cells(LC, 2)).Copy
            Range("C" & NR).PasteSpecial xlPasteValues
            Range("A1", Cells(1, LC)).ClearContents
            Exit Sub
        End If
    Else
        Range("A2", Cells(2, LC)).Copy
        Range("A" & rFind).PasteSpecial xlPasteValues
        Range("A1", Cells(1, LC)).ClearContents
    End If
End Sub

看着这个，我只想要一个更清晰的解释，而不是按原样使用它，并且在不知道我在做什么的情况下使用它。

这是它所在的工作表：

http://dl.dropbox.com/u/3327208/Excel/Replace.zip

如果我将它添加到我的代码中，反刍这个代码我看到我可以做到这一点，我只是想验证这是正确的。

Option Explicit

Sub PENCMR()
    Dim i As Integer

    With Application
        .ScreenUpdating = False
    End With

    'Internal NCMR
    Dim wsPE As Worksheet
    Dim wsNDA As Worksheet

    'Copy Ranges
    Dim c As Variant

    'Paste Ranges
    Dim p As Range

    'Setting Sheet
    Set wsPE = Sheets("Print-Edit NCMR")
    Set wsNDA = Sheets("NCMR Data")
    Set p = wsPE.Range("A54:U54")

    With wsPE
        c = Array(.Range("AG2"), .Range("B11"), .Range("B14"), .Range("B17"), .Range("B20"), .Range("B23") _
                , .Range("Q11"), .Range("Q14"), .Range("Q17"), .Range("Q20"), .Range("R25"), .Range("V23") _
                , .Range("V25"), .Range("V27"), .Range("B32"), .Range("B36"), .Range("B40"), .Range("B44") _
                , .Range("D49"), .Range("L49"), .Range("V49"))
    End With

    For i = LBound(c) To UBound(c)
        p(i + 1).Value = c(i).Value
    Next

    With wsNDA
        Dim rFind As Long, NR As Long, LR As Long, LC As Long
        LR = Range("C" & Rows.Count).End(xlUp).Row
        LC = Cells(2, Columns.Count).End(xlToLeft).Column
        NR = LR + 1
        rFind = wsNDA.Range("A:A" & LR).Find(Range("A54")).Row

        Range("A54", Cells(2, LC)).Copy
        Range("A" & rFind).PasteSpecial xlPasteValues
        Range("A54", Cells(1, LC)).ClearContents

    End With

    With Application
        .ScreenUpdating = True
    End With
End Sub

代码运行，但它没有返回错误，但它没有完全运行。它达到了将所有东西拖下的地步，然后它似乎死在那里。有人可以帮我找出为什么它没有做我认为应该做的事情，即复制行，在 A 列中搜索数字，然后用第 54 行中的正确数据覆盖它...

我知道出了点问题，但是我没有能力弄清楚是什么，如果有人可以帮助我，将不胜感激。

4

1 回答 1

0

我不是 100% 确定您要达到的目标，但您的代码中有几个问题：

代替

Set p = wsPE.Range("A54:U54")
For i = LBound(c) To UBound(c)
    p(i + 1).Value = c(i).Value
Next

你大概是说

Set p = wsPE.Range("A54")
For i = LBound(c) To UBound(c)
    p.Offset(0, i) = c(i)
Next

在您的With wsNDA块中，您需要在and.之前放置，例如：RangeCells

.Range("A54", .Cells(2, LC)).Copy

最后：

  • 我现在将删除这些ScreenUpdating语句，并在调试模式 (F8) 下运行代码，以逐步查看代码在做什么，并在必要时检查变量的值，使用“添加监视”
  • 我会避免使用范围来存储临时数据。您可以改用二维数组，例如：
Dim data As Variant
Redim data(1 To 1, 1 To 21) As Variant
for i = xx To yy
    data(1,i+1) = c(i)
Next i

yourTargetCell.Resize(1, UBound(data,2)) = data
于 2012-05-01T13:46:43.073 回答