Question

我有以下代码：

Worksheets("L.NAM.M").Select
    Cells.Select
    Selection.Find(What:="forecast_quarter", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
    **Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select**
    Selection.Copy
    Sheets("NewForecast").Select
    Range("K" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveSheet.Paste

在光头线上我想找到带数据的最后一行，但是如果我在中间有空白单元格，它将不会复制空白单元格之后的内容。我想复制一切，甚至是空白单元格。有数据因此，如果在A2：A100范围内，A41是空白的，我希望它继续运行，直到最后的数据然后复制一切，即使是A41。有什么想法吗？

Answer 1

这里是对您的代码的一点修改，以坚持它实际执行的操作并且您要求：

GUID_WICPixelFormat32bppRGB

但

发现＆＃34; forecast_quarter＆＃34;似乎毫无用处，因为你根本不使用那个单元格
仍然有一些应该避免的选择/激活

只要您告诉我们前一点

在对你可能真正想做的事情进行一些思考之后

编辑

你是否想要：

复制来自＆＃34; L.NAM.M＆＃34;工作表从＆＃34; forecast_quarter＆＃34;的下方开始到同一列中最后一个不空的
将其粘贴到列中的第一个非空单元格＆＃34; K＆＃34;工作表＆＃34; NewForecast＆＃34;

然后试试这个：

GUID_WICPixelFormat64bppRGB

我的xlDown中间的空白单元格

1 个答案: