Question

我有一段代码

For Each wkSht In Sheets

    If Sheet6.Range("E3").Value = wkSht.Name Then
    wkSht.Range("A1").CurrentRegion.Copy Destination:=Sheet6.Range("A12")
    End If    
Next

需要修改它，以便在复制到sheet6时，它不会复制第200行及以下的任何内容。所以如果currentregion> = 187行，它将不会复制/粘贴任何东西。做了一些谷歌搜索，无法找到任何解决方案

Answer 1

您可以将代码简化为以下内容。你的帖子有点令人困惑，因为首先你要说的是200以下，然后是187.你需要什么就可以放在Resize方法的行参数中。

Dim CopySheet as Worksheet
CopySheet = Worksheets(Sheet6.Range("E3").Value))

With CopySheet.Range("A1").CurrentRegion
    .Resize(186,.Columns.Count).Copy Destination:=Sheet6.Range("A12")
End With

currentregion.copy和目的地限制器

1 个答案: