Question

在我的代码的一小部分中发生了一些神秘的事情，但我无法弄清楚出了什么问题。这是问题所在（我跳过了顶部的工作表/报告定义）：

Set FoundRow = sh_NYlandsum.Columns(1).Find("SUM", lookat:=xlWhole, LookIn:=xlValues)
    FoundRow.Offset(, 1).Resize(1, 33).Copy
        sh_Data3.Range("C" & sh_Data3.Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False

Set wb_rapp = Workbooks.Open(fPath & "\R2\" & "Gruppe1.xls")   
    FoundRow = wb_rapp.Sheets(1).Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Find("SUM", Cells(1, 1), MatchCase:=True).Row
    Range("S" & FoundRow & ":AE" & FoundRow).Copy
FoundRow = sh_SumGrupper.Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Find("G1", Cells(1, 1)).Row    
sh_SumGrupper.Range("B" & FoundRow & ":N" & FoundRow).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
wb_rapp.Close False

我一直在使用F8调试代码，这就是发生的情况：

第一位转到工作表NYlandsum（ThisWB），在A行中找到单词“ SUM”，然后复制B-AH列。数据传递到工作表“ Data3”（ThisWB）列C：AI（第一行）。效果很好。

下一位打开一个报告，在A行中找到单词“ SUM”，然后复制S-AE列。数据传递到工作表“ SumGrupper”（ThisWB）中，在该表中找到列A中包含“ G1”的行，并将数据放入列B：N中。效果很好。

但是...，当最后一位完成时，代码还从工作表“ SumGrupper”中获取行号-已在其中传递数据（行A中保持“ G1”的行= 行号5 < / strong>），然后将工作表“ NYlandSUM”中A列的单词“ SUM”替换为值“ 5”。这是怎么发生的？任何人都可以发现问题所在以及如何解决？

VBA-帮助调试出错的复制/粘贴

0 个答案: