Cell.Offset问题

Question

我是一个新手与vba和编程一般，但一般可以修改现有的代码，如果它是足够简单。我修改了一个宏，该宏根据我找到的另一个宏定义的路径从另一个工作簿中拉出单元格。我已经让它从A列正确地拉入单元格，现在我需要它来拉出基于AF列的信息(不同的标准)。我对它进行了修改，并且成功了，但它复制了以下41列(我似乎不能正确地让偏移量工作)，而不是继续和跟随的列。

我如何修复它才能这样做呢？我为可能是布什联盟提出的问题道歉。

ThisWB = ThisWorkbook.Name
Application.EnableEvents = False
Application.ScreenUpdating = False
path = GetFileName

        Set Wkb = Workbooks.Open(FileName:=path)
        For Each WS In Wkb.Worksheets
            WS.Select
            B = Application.CountA(Range("A:A"))
            If B = 0 Then
                            Else
                For Each Cell In Range("A1:A" & B)
                If VarType(Cell.Value) <> vbnumber Then
                A = Application.CountA(Workbooks(ThisWB).Sheets("ComplaintsFetched").Range("A:A")) + 1
               Range(Cell, Cell.Offset(0, 41)).Copy Workbooks(ThisWB).Sheets("ComplaintsFetched").Range("A" & A)
               End If
               Next Cell
            End If
        Next WS
        Wkb.Close False
Application.EnableEvents = True
Application.ScreenUpdating = True

Set Wkb = Nothing
Set LastCell = Nothing
Workbooks(ThisWB).Sheets("ComplaintsFetched").Select

Answer 1

您的函数调用：

Range(Cell, Cell.Offset(0, 41)).Copy 
    Workbooks(ThisWB).Sheets("ComplaintsFetched").Range("A" & A)

执行以下操作；Range(Cell, Cell.Offset(0, 41)表示选择从当前单元格(第一个参数)到距当前单元格0行、当前单元格右侧41列(第二个参数)的范围。

这就是您选择以下41列的原因。

相反，要选择前面和后面的单元格，有效地选择整行，您可以尝试：

Range(Cell).EntireRow.Copy Workbooks(ThisWB).Sheets("ComplaintsFetched").Range("A" & A)

这会将整个行从您的工作表复制到投诉工作表，从所需的行A列开始

Answer 2

Offset正如其名称所暗示的那样，返回与原始内容大小相同的选区。然后可以使用Rows()和Columns()方法对其进行限制。

我不太明白你想做什么，但是

Cell.Offset(0,41).Copy

将单元格41列复制到区域单元格的右侧。

在Excel宏中命名变量A和B不是一个好主意，太容易将它们与列A和B混淆。