0

我是 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
4

2 回答 2

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 列开始

于 2013-02-05T20:04:59.667 回答
0

偏移量正如其名称所暗示的那样，并返回与原始大小相同的选择。然后可以使用 Rows() 和 Columns() 方法来限制它。

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

Cell.Offset(0,41).Copy

将单元格 41 列复制到单元格范围的右侧。

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

于 2013-02-05T20:11:35.207 回答