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列复制到范围Cell的右侧。

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

Cell.Offset问题

2 个答案: